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: 1 1 MODULE a, (LA neu UAGE (8 $32) , 

; ¢ 38 fOENT "V04- bbs: 

Sey 804} BEGIN | 
; 5 005 1! 
3 § Boos ! Lee REAR RREAEAEERERERERE EEE ERE RE EEEEE EE AEAAAT EE EEERAAEAAAEAEAREREEEHAEEEEAES | 
3 '® + 
3 8 0008 1 !* coe ra ieny (c) 1978, 1980, 1982, 1984 B * 

: 9 0009 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 

; + Ooi} ! i* ALL RIGHTS RESERVED. * 

° . ® 

: \¢ Bo16 1 !* THIS SOFTWARE IS FURNISHED UNDED A LICENSE AND MAY BE USED AND COPIED * 

‘>. 3 13 1 !* ONLY IN ACCORDANCE WITH F SUCH LICENSE AND WITH * 

; (14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

3 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

: 16 B918 1 !* OTHER PERSON. NO TITLE TO AND BUWERSHIP OF THE SOFTWARE IS HEREBY ® | 
: \? Bate : he TRANSFERRED. * 

° 7” oa 

; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

s 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $3 itd | 7 CORPORATION. * 
Z : * 
3 $¢ $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 24 pnse 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

: $5 0095 1 ie : | 
;: & p08 1 !® 2 
3 eo? 00 1 LRA ARR RAR RRA ERA ERE AEE ERE RAAT AERA | 
; 0028 1 
s $3 0029 1 !+4+ | 
g 0 0030 1! 

3 31 Oo : FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 

@ . | 
4 3 ists 1 ! ABSTRACT: 

3 34 0034 1! split user data record buckets 

; 0035 1! 

3; - 0036 1! 
; 37 0037 1 ! ENVIRONMENT: | 
; 0038 1! 

; 39 0039 1! VAX/VMS OPERATING SYSTEM 

; 6 0040 1! 
; 41 0041 1 !<- 

3 $s 94 4 1 | 
3; 6 0045 1! 

3 rf ote ! : AUTHOR Wendy Koenig CREATION DATE: 5-JUL-78 14:46 

; 0046 1! 

; 67 0047 1 ! MODIFIED BY: 

; «648 0048 1! 
: 649 0049 1! V03-013 JwWwT0157 Jim Teague 23-Feb-1984 

3 50 0050 1! When RMS attempted to calculate whether a series of 

ae} 0051 1! duplicate records (including the new record) would 

3 26 B06 1! fit within a single bucket, it neglected to account 

. £ 0055 1! for the fact that the first record in the chain will 

; | «(54 Ope 2 underes full expansion when it ends up as the first 

3; 2 055 1! record in the new bucket. If it is currently partially 

; B038 1! compressed based on the previous key, then that could 
3 57 0057 1! (and sometimes DID) cause bucket overflow when the 
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; 8 038 1! duplicate chain is moved merrily into the new bucket. ; 
; 1! Keep track of the compression count for the first ; 
; & 060 1! record in the dup chain, and adg it to the total : 
; 2 be) : size of the chain before comparing to bucket size. ; 
3 6C8 O68 1! V03-012 JwT0142 Jim Teague 16-Dec-1983 5 
: ee bee ! Correct incorrect bucket VBN comparison. : 
; 66 0066 1! v03-011 MCNO008 Maria del C. Nasr 22-Mar-1983 ; 
3 ef Bee : More changes in the Linkages ; 
3 9 00 1 ! v03-010 MCNO007 Maria del C. Nasr 28-F eb-1983 3 
3 £9 TA ! Reorganize Linkages ; 
ae 0072 1! V03-009 TMK0004 Todd M. Katz 10-Nov-1982 3 
: 7 0075 1! At the present time, under certain circumstances, the number : 
; «74 0074 1! of RRVs which will be required to be created when a simple ; 
. 0075 1! two-bucket split is done is being incorrectly calculated. This 3 
; 0076 1! will happen onl during SUPDATES when the record being updated $ 
as 0077 1! is to go into the old (left) bucket and prior to the split is : 
=; i 0078 1! in its original bucket. Even then it does not happen under all 3 
: 79 0079 1! possible circumstances, but only when duplicate records are : 
; 80 0080 1! involved. It is possible that the number of RRVs calculated to $ 
Per ae 0081 1! be required will be several less than the actual number which $ 
3 6S 0082 1! will be needed. Under certain circumstances, the number of RRVs $ 
; § 0083 1! needed eey actually be calculated as a negative number - an 3 
; 6884 0084 1! impossibility. Much depends upon the bucket composition. While 3 
3 85 0085 1! this does not influence the actual creation of RRVs, what it | 3 
; & 0086 1! does affect is where the bucket split point is calculated to be 3 
Or 0087 1! since RRVs to be created do take up space in the old (left) $ 
; 688 0088 1! bucket. In fact, this problem came to my attention because of 3 
; WZ 0089 1! the occurrance of a bucket split which resulted in the right ; 
:; 90 0090 1! bucket, the new bucket, being empty, and the old (left) bucket : 
. 0091 1! fg all the records even though there was no room for F 
; F 0092 1! them (or the bucket = § would not have been required in the F 
“Za. 0095 1! first place). This split was caused by the number of RRVs | 3 
; 94 0094 1! required being calculated as ~1 instead of 0 such that, instead : 
Pa: De 0095 1! of having the RRV spacial requirements added to the left bucket é 
§ 39 Boe : size requirements, they were subtracted. 3 
5; 0098 1! To fix this problem I have adjusted how the number of needed 3 
.. 0099 1! RRVs are to be calculated. To start, the number of needed RRVs : 
: 100 0100 1! is calculated to be the number of records (including the record | F 
3s 101 0101 1! being updated which is not currentty in the bucket) whose 

5 108 3106 1! original bucket is the bucket splitting. Then, as the split 

s 10 0105 1! point of the bucket is adjusted from left to right, this number 

: 104 0104 1! is decremented as records (which are in their orginal bucket) 

; 105 1058 3? are designated to stay in the left or old bucket. This is where 

: 198 106 1! my change comes in. crovcewesy that the updated record was to 

; 10 107 1! stay in the old bucket was determined at several different 

: 108 0108 1! points, and each time the count of the number of needed RRVs 

3; 109 0109 1! was decremented, as long as the other conditions were met. 

: 110 0110 1! Unfortunately, this allowed for this determination to take place 

s 111 0111 1! more than once, and for the RRV count to be decremented multiple 

3 16 gig 1: times for the same record. My fix prevents this from occurring. 

: BF az : } While it is still determined in several places that the updated 


| 
record is to go in the old bucket, I have made sure that those | 
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places are orthoge?p! to one another, so that the RRV count is 
not decremented more than once for the same record, the record 
whose update is causing the split. 

V03-008 KBT0234 Keith B. Thompson 23-Aug-1982 
Reorganize psects 

V03-007 TMKO003 Todd M. Katz 02-Jul-1982 


Implement RMS cluster solut on for next record pests reniog, 
The next record positioning context is now kept in the IRAB, 
where it maybe retrieved from, instead of in the NRP List 
which has been eliminated. When refering to the RFA address of 
the new/changed or mere data record use the subfields 
IRBSL_PUTUP_VBN and IRB$W_PUTUPD_ID. 


| 
| 
| 
V03-006 MCNO006 Maria del C. Nasr 29-Jun-1982 
Allow keys of different data types other than string 
in prologue 3 es. 
Change all CHSCOMPARE calls to RMSCOMPARE_KEY to compare 

keys taking into consideration the different data types. 


v03-005 MCNO00S Maria del C. Nasr 11-Jun-1982 
Eliminate overhead at end of data bucket that was to be 
used for duplicate continuation bucket processing. 


vO3-004 TMKO002 Todd M. Katz 31-May-1982 
Performance enhancements. | have made four changes to the 
routine RM$SPLIT_UDR_3 which should cut done on the Length of 
the bucket scans required at various times to ut a i 
LaUst CMP 
8 


VEWN "OO DNAUSWN—ODOO~nou 


The enhancements involve setting the IRAB field IRB | 
to the current record if key compression is enabled an 
key of the current record is zero front compressed during 

various bucket scans required in the determination of the 

split point(s). The first of these scans is made to poessten 

to and extract the key of the last record in the bucket. 

The second and third scans are when the split code has decided 

that the best split point is one record previous to the current 

position, and must scan the bucket to obtain the record 

previous to that position so its key can be extracted and used 

during the index update. The forth scan is the right-to-left 

record=-by-record scan made to decide whether a two-bucket 

split is possible, and if so, where is the best place to 

split. Im ati four cases, I have added code to set the 

Last noncompressed record potater before continuing the scan 

with the next record, if the current record was zero front 
compressed. 


v03-003 TMKO0001 Todd M. Katz 10-May-1982 

The algorithm for determining the split point of a prologue 
three data bucket with compressed keys first determines whether 
a two-bucket split can be done by scanning the old bucket from 
left-to-right record-by-re ord determining whether the lefthand 
sides and righthand sides of each possible split point will 

fit into a bucket. This size determination must take into 
account the position of insertion of the new (or updated) 
record, and the size determination of the righthand side must 
take into account the number of characters currently front 
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compressed of what will become its low-order (and thus 

A ay ohn 9 key) record. What was miss ope and what this 
change rectifies, is soot what may become the low-order record 
of the righthand bucket is in fact the new (updated) record 
whose insertion is forcing this split to take place. In this 
case, the number of front coupressed characters to be added to 
the ee nd side total must come from the compressed key in 
keybuffer 5, if this is an SUPDATE, or from the compressed key 
in the record buffer whose address is stored in IRBSL_RECBUF, 
if this is a $PUT. This change will be included as a patch on 
the V3.1 update floppy. 


V03-002 MCNO004 Maria del C. Nasr 31-Mar-1982 
Do not count records that will not need rrv's when moved out 
of the bucket. Their id's cannot be recycled in plg 3 files. 


v03-001 MCNO003 Maria del C. Nasr 25-Mar-1982 
Use macro to calculate keybuffer address. 


v02-016 DJD0001 Darrell Duffy 1-March-1982 
Fix references to RBF for better probing 


v02-015 MCNO002 Maria del C. Nasr 09-Jul=1981 
Fix a problem with update of the first record in a duplicate 
chain, in both old code, and new code. Also fix problem in 
new code with non-compressed keys. 


v02-014 MCNO001 Maria del C. Nasr 02-Jun-1981 
Add the routine to split prologue 3 data buckets. 

V02-013 REFORMAT Ron Schaefer 23-Jul-1980 14:10 
Reformat the source 

v02-012 CDS0000 Chri 01-Jan-1980 15:00 
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wendy Koenig 18-SEP-78 16:53 
x0002 = FIX BUG IN BACKING UP PAST NEW RECORD 


Wendy Kogntg 19-SEP-78 10:52 
x0003 - DO PLIT AT POINT OF INSERT IF ASCENDING ORDER DETECTED 


Wendy Koenig, 12-OCT-78 13:21 
X0004 = CHANGES FOR UPDATE 


Wendy Koenta 18-OCT-78 14:03 
x0005 - IF é PASS BY POS_INSERT WHILE SKIPPING OVER DUPS, NOTE IT 


wendy Koenig 18-OCT-78 14:37 
X0006 - FIX SOME PROBLEMS W/ 4-BKT SPLIT (SUPDATE ONLY) 


Wendy Koenig, 24-0CT-78 14:03 
x0007 - MAKE CHANGES CAUSED BY SHARING CONVENTIONS 


Wendy Koenig, 7-NOV-78 8:58 
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X0008 = FIX EMPTY_BKT BUG, NOT BEING SET WHEN SHOULD BE 


Wendy Koenig 22-JAN-79 17:03 
x0009 - IF 6a TRIES TO FORCE US TO SPLIT ALL DUPS, SPLIT AT POS_INS 


ow 


9 24-JAN-79 9:51 
x0010 = CONDITION HOLDS EVEN IF LOA NOT SET 


Wendy Koeni 29- 


9 JAN-79 15:58 
X0011 = FIX PROBLEM W/ DUPLICATE ENTRIES IN INDEX 


t 
i 
i 
i 
| 
Wendy Koeni | 
' 
| 
| | 
\ereee 

| 
LIBRARY "RMSLIB:RMS'; 
REQUIRE "RMSSRC:RMSIDXDEF'; 


define default psects for code 


PoPoPoTenononononononofnorforofny 


WN“ SO ODNAUESWN (OO OODNAU EWN “OC OONOUS WR 


ALA AA AAA AAAI AAAI AIO POPORONO POO POROFONIPUFOUNOFOND 
WWAWAAAAWAUR RRND 3 3 3 3 SORE ER RWWA) 


3 9 1 

3 0 1 

$ 1 ! 

ae38 | 

3 8 5 ! 

3 0 : 1 

3 0238 #1 

3 0239 1 

; 24 0240 1 

; 24 0241 1 

: 24 0 § 1 

3 4 0 1 

: 4 0244 1 

; 24 0309 1 

>; 24 0310 1 

3 4 8 a, 2s 

s a ; 1 

3 4 0 1 CODE = RMSRMS3(PSECT_ATTR), 

4 2 8 ¢ ! PLIT = RMSRMS3(PSECT_ATTR); 

; 0316 1 ! Linkages 

; $2 0317 1! 

: 25 0318 1 LINKAGE 

; 23 0319 1 L_COMPARE_KEY, 

: 25 0320 1 L-PRESERVE1 

; 25 0321 1 L“RABREG_4567, 

; 2 0 ; 1 .) ‘ 

3 2 0 1 L-REC_OVAD, 

; 26 0324 1 

: 26 0325 1 ! Local Linkages 

: 26 0326 1! 

3 6 0327 1 RLSBUILD_KEY = JSB () : 

; 64 0328 1 GLOBAL (R_IDX_DFN) PRESERVE(1,2,3,4.5), 
3; 265 0329 1 RLSMOVE_KEY = JSB (REGISTER = 0, REGISTER = 6) : 
; 266 9 9 GLOBAL (R_RAB, R_IRAB, R_IFAB, R_IDX_DFN, R_BKT_ADDR); 
$ 268 0 ¢ 1 ! Forward Routine 

3 69 0 2 

: 70 0334 1 

: 71 0335 1 FORWARD ROUTINE 

: % 8 § 1 RMSBUILD_KEY : RLSBUILD_ KEY NOVALUE, 
3 A B33 ! RMSMOVE_REY : RLSMOVE_REY NOVALUE; 
3 75 9 1! External Routines 

3 6 40 1! 

: 7 41 1 

; 278 O66 1 EXTERNAL ROUTINE 

2 73 1 RMSMOVE : RLSPRESERVE1, 

3 80 344 1 RMSRECORD_VBN : RLSPRESERVE1, 

; 81 45 1 RMSRECORD KEY : RLSPRESERVE1, 

3 a¢ rs 1 RMSREC_ vAD : RLSRE 

; 28 47 1 RMSVBN7SIZE : RLSPRESERVE! 

> 284 0348 1 RMSCOMPARE_KEY : RLSCOMPARE KEY, 
; 285 0349 1 RMSCOMPARE_REC RLSRABREG_67, 


en 


Mm 15 
18885-1986 98:01:40 ERms-sReIRASSPLUDR-032; teed 


0350 1 RMSGE TNEXT_REC : RLSRABREG_67; 
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88 ++ 
89 ALGORITHM FOR A TWO-BUCKET 50/50 SPLIT 
3 GIVEN: that the record will not fit in the bucket. 
-@., we must split the bucket in some form. 
94 INPUTS: the bucket, the record size and the position 
95 2 to insert the record in the bucket 
6 
6 GOALS: to make the split as efficient as possible: 
6 1) to create the fewest number of new buckets possible 
6 2) to use the space in the availshle buckets efficiently -- 


i.e., the bucket with the most available space should contain 
the most data after the split. 


ALGORITHM IN A NUTSHELL: 

1) A two-bucket split will occur IF AND ONLY IF there is a point in 
the bucket at which all records to the left of the point and 
necessary rrv's fit in a single bucket and all records to the right 
of the point ‘it in a single bucket. This point must be on a 
cocere —agehed and must not be in the middle of a chain of 

uplicates. 

2) Given that such a point exists, the most optimal point for a 
2-bucket split is the point at which the actual data records 
are divided evenly between the available space in the orgie 
bucket and the available space in the new (previously empty) bucket. 


In theory, therefore, the idea is to find a point in the bucket such that 
the point is on a boundary between duplicate records and that 
1) records in the left hand side / space in the left hand bucket 


2) records in the right hand side / space in the right hand bucket. 

In practice, the idea is to mimimize the absolute difference between 
ratio 1) and ratio 2). Just to make it clearer, ‘records in the left 
hand side’’ means the total size of the data records left of this point 
(not wns Luding rrv's of any kind) and ‘’space in the left hand bucket’’ 
means the bucketsize of the data bucket minus the total size of existing 
rev's and the total size of rrv's which would have to be generated. 


IMPLEMENTATION: 
This algorithm needs two scans of the bucket. The first scan is very 
quick and determines the total size of the existing rrv’s. It also 
counts the number of rrv‘'s that would have to be generated in a worst 
case situation (i.e., all records would be moved out). Thus, as the 
second scan proceeds, all information needed to calculate the above 
ratios EXACTLY is available. 


n order for there to be a 2-bucket split, there must be a point 

n the bucket such that the right hand side fits in a single bucket. 
Scanning from the left (beginning) of the bucket, we can find the 
first point at which the right hand side will fit. Since as we 
continue pconning to the right we are decreasing the right hand side, 
the righthand side will continue to fit as we scan rightward. 
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If at this point, the left hand side will not fit, we can not possibly 
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have a 2=bucket split, since continuing our scan would only make 

the left hand side larger ( or it may atay the same size). Once we 
have found a point at which we can do a 2=-bucket split we can always 
return to it, if in our search for a more optimal split point we 
leave the range in which the left hand side will fit. 

This can occur if the records in the bucket are of miminal size, 
that is to say that the records are the same size as rrv's and 
td no additional space for data is gained by scanning to the 
right. 


At this point ( the first point at which the right hand side will fit 
ratio 1 is less than ratio 2. As we proceed to the right, ratio 1 wil 
increase and ratio 2 will decrease. This is due to the fact that 

the size of the right hand size ( the numerator of ratio 2) decreases 
as we move rightward and the available space in the right bucket is a 
constant ( the denominator of ratio 2). In ratio 1, both the numerator 
and denominator are increasing, but the numerator is increasing at a 
faster rate. As soon as we reach a point where ratio 1 is greater 

than or equal to ratio 2, we can stop the scan. Now we have a choice 
of split points available. We can use this point or the one immediately 
before it ( if such a point exists). The decision is made b 

minimizing the absolute difference between the ratios and we have an 
optimal split point. 
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368 
369 
370 Things become complicated by the presence of duplicate records. 
371 When duplicate records occupy more than one bucket, the subsequent 
372 buckets are termed continuation buckets. In prologue version 1 and 
373 2 files, there is a pointer from the index to the first bucket only, 
374 and the continuation buckets are found only from the horizontal Links 
375 in the buckets. At one point, it was thought that disaster would 
376 ensue if the continuation buckets ever had a record with a key value 
377 04 other than that of the duplicates. Normally, this will not happen 
378 0441 because the key value of the index pointer to the first bucket will 
379 044 be the same as that of the duplicate records in the chain and a record 
380 044 with a higher ney value will follow the next index pointer down when 
381 0444 positioning for insert. This will place it in the next bucket beyond 
382 0445 the chain of continuation buckets. However, a bucket in which the 
383 0446 record with the highest value has been deleted that qubeoquent ty 

384 0447 recieves a series of duplicates creating a continuation chain will 
385 0448 generate a situation where a record with a Bey value between that 

386 0449 of the duplicate chain and the original high key value of the bucket 
387 0450 will be inserted at the end of the duplicate chain. A far more common 
388 0451 situation is created by RMS-11 (at least thru v1.5) when Loading a 

89 bees file in pscending ec taary key proyense will pack the buckets 100% 

390 bee (or the load factor) full, including records of non-dupe key values 
33) 454 at the end of continuation buckets. 

4 0455 At any rate, the fact that the situation exists napyTeheteneing, 

9 0456 much of the code that follows is there to keep duplicates together 

94 0457 when splitting, and to put only records with duplicate key values 

95 0458 in continuation buckets. It appears to be a good thing to do from 

96 459 an overall space efficiency standpoint over a period of time, but 

44 460 the code could probably be considerably simplified if it wasn't 

98 461 necessary. With all that in mind, the y od. situation with all 

399 186 possible record ‘partitions’ within the bucket prior to splitting 
730 ret is as follows: 
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3 40 <8? 1 (mmm eemeeeeeeeeeeeseeseseeceseceseessscess 

; ret 138 ! ! Low set ! low dupes !! high dupes ! high set ! 

; 405 0468 1! , 

; t83 rk 4 } } point of insert (new record) 

; 408 bes 1! From the point of view of the split code, an update operation in 

; 409 B78 1! which the record is growing and causes a split is identical (almost) 
; 410 475 1! to a new record being inserted. The original record is removed from 
> «411 0474 1! the bucket after determining that the updated record will cause a 

3 tig 0475 1! split and the updated record is more or less treated as a new record. 
3; «41 p78 1! One of the most important differences is that in an update situation, 
> 414 47/7 1! the ‘new’ record gets the id of the old record, rather than a new id. 
3 «415 0478 1! Another is that because duplicate records are always inserted at 

: 416 0479 1! the end of a chain of duplicates, some split cases can only occur 

; 4617 0480 1! on an update operation. 

: 418 0481 1! In fact, the situation postulated above can happen only in an update 
> 419 Bees , situation, and may cause 3 new buckets to be generated on the split 

> 420 0483 1! operation. This will occur when the updated record is in the 

; 421 0484 i! middle of a group of duplicate records and grows to the extent that 

> 422 0485 1! no other records will fit in the bucket with it anymore. 

: 423 0486 1! Using 1 byte key values to make this easier to visualize, the bucket 
; 424 0487 1! above prior to the apeeee may look Like this (the artificial 

; ret ot +4 ! partitioning of the bucket corresponds to the breakdown above): 

s 427 0490 1! «_—s werwmmmmnw ww wenwneewwencnenceceences 

3 o$8 984 : 'ABC!I!DDODD!I!D!I!DDIEFG! 

; 430 0493 1! /\ 

; $3) bead : this record gets updated 

; 433 0496 1! The record being updated changes size and grows such that it 

> 434 0497 1! needs an entire bucket for itself. To keep all the duplicates 

; +32 be98 ! together, the situation after the split looks Like this: 

: 437 0500 1 $e (i ieeeee oo =<eeesees jg- ceecescee 

; $38 F454 : } 'ABCDDD! > !dD! > !dd! => !E€FG! 

; 440 $208 1! this is the these two are 

3 tt) bee ! original bucket continuation buckets 

3 443 0506 1! The original bucket probably had an index pointer with the value ‘'G’ 
3 444 0507 1! pois to it (or some previous bucket if there was a previous index 
: 445 B28 1! update failure). After the ns pe the key value for that pointer will 
3; 446 509 1! be updated to have the key value ‘D', and the key value that used to 
: 447 0510 1! point to it (probably ‘G'), will now point to the right hand bucket 

3; 448 0511 1! (with "E*, ‘F*, and 'G' in it). The continuation buckets never have 
3 rc $218 : an index pointer to them. 

s 651 0514 1! ALL other split situations are a variation of this one, with 

3 $28 515 1! one or more of the ‘partitions’ not present, dependent on the key 

3; 45 218 i value and position of insert within the bucket of the record being 

3: 454 51 1! inserted or updated. for example, if there are no duplicates, there 
3 455 218 1! are no ‘low dupes’ or ‘high dupes’. Or if the position of insert is 
3 re 23 : } at the end of the bucket, there is no ‘high set’. 

; 458 0521 1! Now that I've started on it, may as well try to document some other 
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from irb$l_vbn_right. Remember that all of this stuff works correctly 
if the index update failed and we got to the bucket thats splitting 

by following the horizontal bucket Links at the data level. : 
oo exenpte, consider the following case where prior index corruption 
exists: 


498 


G (index update failed when right hand bucket split off 
' during a previous insert operation) 
v 


/\ 
new record 'E* will be inserted here and cause split 
After split: 


; 459 5 § 1! interesting split situations. Note that a ‘2 re split’ means 
; 460 5 7% that there are 2 buckets after the split, i.e., 1 new bucket is 

: rhe 2 ¢ ! added. The situation described above is a 4 bucket split. 

: 46 5 1! The most interesting split from an index updating point of view 

; 464 05 $ 1! is the § bucket split ohere a record is bein inserted in the middle 
: 465 0528 1! of the bucket and doesn't fit in a bucket with either the low set 
; rhe 2 4 ! or the high set. Again with 1 byte key values to illustrate: 

: 468 0531 1! G (this is supposed to represent an index 

: 282 05 ¢ : } { pointer to this bucket with key value ‘g’) 

: «471 $337 os v 

: are 0539 ( (  ntcecenesnnenens 

; ate pe89 : TABOCILT€F6! 

; 475 be36 1! /\ 

: 476 0539 1! new record with key value 'D' inserted, but is so large 

3 rh beet i that it has to have bucket of its own. 

: rt b2¢§ ! } After split (with new index pointers): 

; 481 0544 1! C D G 

: 482 0545 1! ' ' { 

> 483 0546 1! 1 { : 

BT 

3 rey Beeg ' TReCT => TOT => TER GT 

; 488 0551 1! 

; 489 B26 1! The new pointer 'C' is the bucket pointer from the original index 
; 490 0553 1! record 'G' with the new key value 'C’. The ‘D' pointer is an 

3; 491 0554 1! entirely new record (i.e. ae value 'D' and bucket pointer). The 
; 492 0599 1% ! pointer 'G' is the key value from the original record 'G* with 

3; 493 0556 1! anew bucket pointer. The bucket pointer for the 'D' bucket comes 
: 494 B2ee : } from irb$l_vbn_mid and the bucket pointer for the 'G' bucket comes 
3 0559 1! 

3 0560 1! 

: 0561 1! 

; b2e§ ; 4 

3 0565 1! 

: 0564 1! 

; g202 1! 

3 566 1! 

3 0567 1! 

3 228 7 3 

$ 569 1! 

3 570 1! 

3 B29) 1! 

; 276 1: 

: be) eB 

3 574 1! 

: +e i es 

3 278 1! 

3 ia 

3 578 1! 
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! 
: if 228 ! i om eee em . ae ee eS 
3 218 2 1 : rAGC! @- 108! wm 1FE! 
; 320 05 : 7 
$ Der 28 1! The reason for the index updating behavior becomes more obvious. 
. 2 ¢ 35 7! The key value of the original down pointer 'G' has been changed to 
3; > 238 22 the new value ‘E', but pete iotog the original bucket pointer. Note 
> 524 5 1! that we split the bucket with 'D' in it, yet there is no bucket pointer 
s 52S 588 1! to it now (there wasn't before). The key value 'G' of the original 
; 526 0589 1! bucket pointer ‘'G' has been used with a new bucket pointer for the 
3 2st Bea0 1! new bucket created by the split (this is irb$l_vbn_right). 
; 8 591 1! Sometimes there will be a bucket split and no records will be 
3 262 8236 1! in the left hand bucket after the split. This may penpes if the 
; 5330 0595 1! record being inserted belongs at the ae gee of the bucket, but 
3 3351 0594 1! there are enough rrv's present so that it doesn't physically fit. 
; 236 0595 1! In that_case, all of the existing records will have to be moved out 
2 0596 1! also. This on also occur if there are no id values left in the 
>; «4534 0597 1! bucket (typically caused by deleted rrv's). In this case, we would 
3 309 0598 1! Like to swing the index pointer ouey from the ‘empty' bucket to 
; 536 0599 1! keep random access times from deteriorating. As of er etogue versions 
5 Sa 0600 1! 1 and 2, however, it will remain in the horizontal Link of data 
3; Soe 0601 1! buckets. However, we can only change the down pointer if it already 
; 33 0602 1! points to that bucket or we can potentially create crossed down 
3 279 Ben? ; pointers. The situation is illustrated below: 
; 248 tH ! } C I (index update failed on a previous split) 
3; 544 0607 1! : ' 
; 545 0608 1! v v 
; 546 0609 1! jj — wemmmmene ammeeeeee 8 eoeennnn 
3 rt 4 pel? ! } ‘ABC! => ! DEF! = x HI! 
; 549 Beis 1 ! record with key value ‘G’ will be 
: 329 Betz : } inserted here 
3 Soe 0615 1! Also presume that the bucket 'G' is being inserted in has so many 
s 533 0616 1! rrv's in it that it won't fit into the existing bucket, even though 
3 228 6 OF ! it will fit into a bucket without any rrv's in it. 
3 228 bole ! After split: 
; 38 0602 | | i 
: 366 b603 | | | ! 
; 561 0624 1! v v 
: 36¢ 6625 $$ #+| 4 aesccccss j§§é-aecccesse i§€- accccsesccescs  #§§§= seacesace 
3 287 B6e6 : 'ABC! => !DEF! => !rrv's only! => !GHI! 
3 369 0628 1! 
; 296 86 ; 1! Note that the index pointer ‘I* was not moved to point to the new 
5; 3 6 1: bucket. If it had been, the bucket containing ‘D E F* would have 
; 568 0631 1! been ‘lost’ by random access from the index. This condition is 
: 569 88 § 1! detected by setting irb$l_vbn_left to the vbn of the rrv only 
; 370 6 zz bucket. During the index update procedure, the pointer will be 
3 Sri be 4 1! moved to point to the new bucket only if the existing down pointer 
s Se 635 1! points to the bucket that was split, i.e., irb$l_vbn_left (this 
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is normally the case as index corruption is ye normal). Note thet 
Me RS hand bucket may also be present in a 3 bucket split 
u ° 


Following is a List of the specific split cases handled in the 
code. They are basically variations of the above cases. 


these are all the cases of 3 and 4 bucket splits that i can think of 
any or all of these cases can have the empty left-hand bucket 


Dt et et eh ko eal 


es 


-- this would occur if the first split point is at the beginning 
-- of the bucket and all data records got moved out 


low we + exist == no high dups 
e 


OWONAVAL WN OODONOUS 


ow_dups fit w/ rec 
bkt ; Lit. low, low dups w/ rec, hi set -- rec goes w/ lo 
( SPLIT TYPE 1 5 


low dups don't fit w/ rec 
kt split w/ rec in its own continuation bucket 
( SPLIT TYPE 2, W/ DUPS SEEN ) 


hi dups exist -- no low dups 
hid 
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woooowvowvowowvovow co Co ~“N 
SSSSezsF Ses 00 00 C9 C9 00 CO CD CD CO ~~ a i] 


sss PDP PPP SV SSSI VSS SUSI SITS 


ups fit w/ rec 
bkt split low, hi dups w/ rec, hi set 
( SPLIT TYPE 


1 § 
hi dups don't fit w/ rec 
f no more hi, 3 bkt split low, rec, hi = hi dups is a cont. bkt 
( SPLIT TYPE 2 ) 


if there is more hi, 4 bkt split low, rec, hi dups, hi 
( SPLIT TYPE 2B ) 


no dups at all 


aon 


record goes in its own bucket, 3 bkt split 
(SPLIT TYPE 3 ) 


low dups and hi dups 
all 


ee ee ee ee ee ee ee ye SS » 


WONA VS WN S(O OONOUEWN O00 


PORPOROPONMONNUR OO 


AAAAAAAAAAASAAAAAAAO 


p 
dups fit together 
3 bkt split w/ dups in middle bkt 
( SPLIT TYPE 1 ) 


no dups fit w/ record : E 
if no more hi, 3 bkt split low, rec = cont. bkt, hi = hi dups = cont. bkt 
( SPLIT TYPE 2B ) 


if there is more hi, 4 bkt split low, rec = cont. bkt, hi dups, hi 
( SPLIT TYPE 2B ) 


hi dups fit w/ record ; 

if no more hi, 2 bkt split low, rec w/ hi dups = cont. bkt 

( this is a 2 bkt split case that the previous alg. wouldn't handle) 
( SPLIT TYPE 4B ) 


if there is more hi, 3 bkt split low, rec w/ hi dups = cont. bkt, hi 


RM3SPLUDR -1984 02:03:2 AX-11 Bliss-32 V4.0-742 
yOe-000 - ats ri 6:07:26 RMS .SRCIRMSSPLUDR.B32;1 
; 630 $33 1! ( SPLIT TYPE 4 ) 

; 631 94 1! 

: 6 ¢ 95 1! low dups fit w/ record 

3 © 036 1! if lo and hi, i bkt split low, low dups w/ rec, hi dups, hi 

; ? ¢ 44 | ( SPLIT TYPE’S ) 

: 6 6 699 if no lo and no hi, 3 bkt split (rrv's), low dups w/ rec, hi dups = cont. 

: 638 701 1! bkt 

; O73 ¢ ! ( SPLIT TYPE 5, w/ empty original bkt and no high ) 

: 641 0704 1 i if lo but no hi, 3 bkt i lo, low dups w/ rec, hi dups = cont. bkt 

: ak 8702 : ( SPLIT TYPE 5, *w/ no high 

: 644 0707 1! if hi but no jou. 4 bkt s Sy (rrv's), low dups w/ rec, hi dups, hi 

3 2 Bree : } ( SPLIT TYPE 5, w/ empty ) 
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XSBTTL 'RMSMOVE_KEY’ 


ROUTINE RMSMOVE-KEY (ADDRESS, CUR_REC_ADDR) 


e+ 


FUNCTIONAL DESCRIPTION: 


Routine to move the key from wherever it is desired into 
key buffer 2. 


CALLING SEQUENCE: 
bsbw rm$move_key (address,cur_rec_addr) 


INPUT PARAMETERS: 
address from which to get the key from 
the current value of rec_addr 
IMPLICIT INPUTS: 
BKT_ ’ 
RAB = user's buffer address 
IRAB == pos_ins, rec_w_lo, keybuf 
IFAB -- kbufsz, prologue version 
IDX_DFN == for call to record_key, and compression flags 


OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 
key is moved into key buffer 2 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 


key is moved into key buffer 2 
AP is clobbered 


BEGIN 
BUILTIN 
AP; 


GLOBAL REGISTER 
R~ IMPURE 
R-REC_ADOR_STR; 
EXTERNAL REGISTER 
R_1FAB_STR, 
R~IRAB_STR 
R-IDX_DFN_STR 
R~BKT~ADDR_STR; 
IF .CUR_REC_ADDR - .BKT_ADDR EQ!.U .IRABLIRBSW_POS_INSJ 


: RLSMOVE_KEY NOVALUE = 
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; 705 767 AND 

Ss. : £08 - IRABCIRB$V_REC_W_LOJ 

; ¢ 18 THE 

; 708 7 9 BEGIN 

; 709 77 AP = 3; ' no overhead, not compressed 

: 710 106 REC_ADDR = .IRABLIRBSL_RBF I; 

: Hi} re eLse™ 

2 ne ee 

: 215 O77? REC_ADDR = .ADDRESS; 

: a§ $778 ! In prologue 3 version files, if the key is compressed, it must be 
; 718 0780 ! rebuilt. Make sure that the Last non-compressed pointer, is before 
; 719 0781 ' the record we are looking at. 

Bak : 

; 13¢ 078% IF «,1]DX_DFNCIDXSV_KEY_COMPR] 

: ish Ore? — 

: 726 0788 4 IF .IRABLIRBSL_LST_NCMP] GTRU .ADDRESS 

s fer 0789 4 THE Oat 

; ose Ta : BEGIN 

5 786 079¢ 3 IF .(. ADDRESS + RMSREC_OVHD() + 1)<0,8> EQLU 0 

; 32 079% 3 IRABCIRBSL_LST_NCMP] = .ADDRESS 

: 734 0796 5 IRABLIRBSL_LST_NCMP] = .BKT_ADDR + BKTS$C_OVERHDSZ; 
s 35 0797 4 END; 

; 736 0798 3 END; 

a Bio 

: 739 0801 2 ! We are storing in key buffer 2 the possible key to be inserted at the 
3; 7% 080 § ! index level. 

fare dae 

: a 0805 5 RMSRECORD_KEY ( KEYBUF_ADDR(2) ); 

: 745 0807 : RETURN; 

: 746 0808 2 

3; 747 0809 1 END; 


ITLE RM3SPLUDR 
DENT \v04-000\ 
x 


“EXTRN RMSCOMPARE_REC, RMSGETNEXT_REC 
.PSECT RMSRMS3,NOWRT, GBL, PIC.2 


EY: 


0850  8F BB 00000 RMSMOVE_K 
PUSH #*°M<RG,R6,R11> 


; 0711 


RASSPLUDR 
v04=0 RMSMOVE_KEY 
56 48 Ag 
09 
1C 


; Routine Size: 90 bytes, 


; 748 0810 1 


1 
1 
5B DO 00004 
8 pt 
10 00 FS QOA 
001 
44 A9 E1 0001 
5¢ D0 Bat 
56 58 AY 00 QOOTA 
6 11 93 
C 04 000 
5B 00 000 ¢ 
1c) =A? 08 gt 00 
Ph) 0098 «= ¢ E 8 A 
64 01 F 
12. 18 00032 
00006 30 000 
01 A04B 95 00037 
93 12 00038 
64 B 00 00030 
04 11 00040 
64 OE AS YE 00042 
50 00B4 CA 3C 00046 
60 8940 9F 00048 
00006 30 Q004F 
5E 04 CO 00052 
0850 8F BA 00055 
05 00059 


Routine Base: RMSRMS3 + 0000 


—_ 
nn 


Wr 


wn 


28 AX-11 Bliss-32 V4.0-74 
4 RMS. SRCIRM3SPLUDR.B32; 
RO, R11 

BKT_ADDR,_R6 

#0,°#16, 72(IRAB), R6 
#3, 68(IRAB), 1$ 

#3. AP 

BB (IRAB), REC_ADDR 

AP 

ADDRESS, REC_ADDR 

#6, 2B(1DX_DFN), 3% 
152(IRAB), R4 

(RA), ADDRESS 
RMSREC_OVHD 

1(RO) CADDRESSI 
ADDRESS, (R4) 

3$ 

14(R5), (R4) 
RMSRECORD_KEY 

#4, SP 

#°M<R4,R6,R11> 


Be Se Se Se Be Se Se Be Ge Be Se Se Se Ge Se Fe Se Fe Be Se Ge Ge Fe Hs Be Se 
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RM3SP 
v04- RMSBUILD 


; 750 /) oe 

: 8) 18 | 

8 Fa 7% Ff 
3 Pee 18 1! 
s 755 1 1! 
s 56 t= 

s 57 0818 1! 
: 758 0819 1! 
; 739 0820 1! 
; 760 0821 1! 
; 761 oe ¢ 1! 
: 76 0 1! 
s 76 0824 1! 
: 764 0825 1! 
; 765 08 § 1! 
; 766 08 1! 
: 767 0828 1! 
: 768 +f) 1! 
: 769 0830 1! 
: 770 0831 1! 
3 771 tt) 1! 
; 0833 1! 
3; 77 0834 1! 
3 774 0835 1! 
3; 775 0836 1! 
: 776 0837 1! 
; 777 0838 1! 
: 778 0839 1! 
3; 779 0840 1! 
; 780 0841 1! 
: 781 0842 1! 
; 782 0843 1! 
3; «(783 0844 1! 
> 784 0845 1 

: 785 0846 § 

: 786 0847 

3; 787 0848 

; 788 0849 

; 789 0850 

; 790 0851 

3; 791 Bag 

; 79 882 

; 79 54 

3 794 855 

: 795 329 

3; 796 85 

3; 797 0858 

; 798 0859 

; 799 0860 

; 800 0861 

; 801 086 

; 80 086 

: 80 4 

3; 804 5 

5 302 66 

3; 806 086 
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ZSBTTL "RMSBUILD_KEY 
ROUTINE RMSBUILD— “KEY. (ADDRESS, KEYBUF) : RLSBUILD_KEY NOVALUE = 


'+¢ 


FUNCTIONAL DESCRIPTION: 


This ree ne builds a compressed key from the record in 
given buffer, knowing that the front characters are val 
he previous expansion. 


ee 
ao 


i CALLING SEQUENCE: 


bsbw rm$build_key (address, keybuf) 


i INPUT PARAMETERS: 


- address in bucket which points to key compression overhead 
- key output buffer 


i IMPLICIT INPUTS: 


X_DFN = index definition for key size 


! OUTPUT Anpath 
no 


i IMPLICIT OUTPUTS: 


key is moved into appropiate key buffer 


i ROUTINE VALUE: 


none 


i SIDE EFFECTS: 


key is moved into appropiate key buffer 


BEGIN 


vaahiet os REGISTER 
R_IDX_DFN_STR; 


LOCAL 
TRUN_CHAR, 
LENGTH; 


BIND 


REC_KEY = ADDRESS : REF BBLOCK; 


0 
ce-ten = 9.0.8.8 zt. 


KEYBUF = -KEYBUF + »REC _KEYCCMP_CNT); ' skip characters already moved 
TRU CHAR = -REC_KEY REC ohh YEKEY 

LENGTH = .IDX_DFAL Dx$B °K “REC EKEYECMP, CNT); 
CHSCOPY ( .RET_KEY KEY. cet »REC_KEY™+ 2, 


RON 
“LENGTA, ARE YBUF ); 


RM3SPLUDR 
v04~000 RMSBUILD_KEY 


ia) 


10 087 


RETURN; 
END; 


Ww 
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—"ONVNOWwWOMo— 


52 63 02 


ADMNGUP SF EOuy & 
mmo —-Oo—-NoOo-oOo-m 
oO 
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; Routine Size: 47 bytes, Routine Base: RMS$RMS3 + 005A 


> 811 
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00000 RMSBUILD 
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a 98:8F:4 


KEY: 
PUSHR 


ee Bliss-32 V4.0-74 
RMS .SRCJRMSSPLUDR.B32; 


#°M<R1,R2,R3,R4,R5> 
REC_KEY, R1 
1(RT), RO 

RO, KEYBUF 


{ 

R1SCROJ, TRUN_CHAR 
(IDX_DFN), LENGTH 
R1), RO 


LENGTH 
RO, 2(R1), (TRUN_CHAR), LENGTH, @KEYBUF 
#*M<R1,R2,R3,R4,R5> 


awa 
= 
~o 


R1) 
(R1 
2(1 
(R1 
0 
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RMSSPLUDR 16-Sep-1984 02:03:2 AX-11 Bliss-32 V4.0-74 
v04 RMSSPLIT_UDR 12286871382 09:37:28 AMS -SRCIRMSSPLUDR B32, 
; 813 pare 1 ZSBTTL ‘RMSSPLIT_UDR' 
; i 4 ie : GLOBAL ROUTINE RASSPLIT_UDR : RLSRABREG_4567 NOVALUE = 
; 18 0876 1 !+4 
; 81 Bae 1! 
; 818 8 4: 1 ! FUNCTIONAL DESCRIPTION: 
3 $13 879 1! 
; 0 paey 1! 
; 821 881 1 ! CALLING SEQUENCE: 
; § ¢ ott 2 BSBW RMSSPLIT_UDR() 
3; 8 0885 1! 
; 824 0884 1 ! INPUT PARAMETERS: 
3 S29 0885 1! none 
; 826 08 1} 
; $ 7 0887 1 ! IMPLICIT INPUTS: 
3 8 0888 1! BDB pointer, BUFFER pointer, REC_ADDR = point of insert, IDX_DFN 
A 568 0889 1! in IRAB == curbdb, associated w/ bdb and bkt_addr 
; 0890 1! pos_ins corresponding t® rec_addr 
; 831 0891 1! in RAB == rsz of record 
; o36 0892 1! in IFAB -- rfm 
; 83 0895 1! BKTSB_NXTRECID = 0 in original bucket signals that this is 
>: 834 0894 1! a split due to a lack of id's in the bucket 
3 839 0895 1! 
; 836 0896 1 ! OUTPUT PARAMETERS: 
; 837 0897 1! none 
; 838 0898 1! 
; 839 0899 1 ! IMPLICIT OUTPUTS: 
; 840 0900 1! in IRAB -- 
; 841 0901 1! if 2 bkt spi it -- 
; 84 0902 1! IRBSW_SPLIT, offset to split point : 
; 84 0903 1! IRBSV_REC_W_LO -- set if split point is pos_insert and 
> 844 0904 1! record goes w/ lo set 
; 845 0905 1! new high key for original bucket in keybuffer 2 
; 846 0906 1! number of new buckets = 1 
; 847 0907 1! if original bucket was all rrv's, set IRBSV_EMPTY BKT thee 
; 848 0908 1! if new bucket is a continuation bkt., set IRBSV_CONT_BKT flag 
; 849 0909 1! if 3 bkt split -- 
; 850 0910 1! same as above w/ these changes: ‘ 
; 851 0911 #1! IRB$W_SPLIT_1, offset to second split point 
3 oes pats 1! number of new buckets = 2 
; @ 0915 1! if right bucket is a continuation bkt, set IRBSV_CONT_R flag 
; 854 0914 1! if 4 bkt split -- 
; 855 0915 1! same as above w/ these changes: | 
3 $28 bats ; IRB$SW_SPLIT_2, offset to_third split point 
: 8 917 1! number of new buckets = 3 
; 858 0918 1! 
; 859 0919 1 =! ROUTINE VALUE: 
; 860 0920 1! rmssuc 
; $6! 0921 1! 
: ; 9 § 1 ! SIDE EFFECTS: 
; 86 9 1! AP is clobbered 
3 He 924 1! 
; 5 , 5 : leo 
; 36? 9 $ BEGIN 
§ 508 9 3 
; 9 9 EXTERNAL REGISTER 
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RMSSPLIT_UDR RMS.SRCIRM 
0930 COMMON_RAB_STR, 
82 1 R_REC_ADDR-STR, 
9 ¢ R- IDX" DFN_STR, 
09 COMMOR_10-STR; 
0934 
0935 LOCAL 
0936 SAVE_REC_W_LO, 
0937 2 NUM_RRVS 
0938 é POS" INSERT, 
0939 EOB, 
0940 RRV, 
bee RHS, 
arg LHS 
0943 2 LASt __: REF BBLOCK, 
0944 2 LAST_DIFF, 
0945 § BKTSIZE 
0946 REC SIZE, 
0947 DIFFERENCE; 
0948 
0949 MACRO 
0950 2 NEED_RRV = NUM_RRVS<0,16> % 
0951 2 NOT_NEED_RRV ="NUM_RRVS<16,16> %; 
B36 § 
095 LABEL 
0954 2 DO_IT, 
0955 2 HALF, 
0956 2 NEXT; 
0957 2 
0958 2 DO_IT : 
0959 ; 
0960 BEGIN 
0961 3 
0962 3 ! define a block so that we can have some common checks before returning 
0963 3 ' successfully 
0964 3 : 
0965 3 HALF : 
0966 3 
0967 4 BEGIN 
0968 4 
0969 4 1¢ 
0970 4 ! define a block so that we can simulate a go-to (naughty, naughty) 
0971 4 ! if we have decided that we are positioning at the end of the bucket 
0972 4 ! & we're in somewhat of an ascending order, where the last record 
0973 4 ! inserted is a duplicate of the new record, skip over the 50-50 code 
Bete : and go to the code to take duplicates into account 
0976 4 ! scan 1 == calculate 
0977 4 ! size of existing rrv's and total number of rry's needed to move the whole 
0978 4 ! bucket out ( worst case) as a side effect, adjust eob ptr to pt to the 
$444 : rrv's instead of freespace assume not empty bucket until showed otherwise 
0981 4 
bon : IRABCIRBSV_EMPTY_BKT) = 0; 
$84 7 new rec is tried ist w/ hi set, then w/ lo set 
0986 4 IRABCIRB$V_REC_W_LOJ = 0; 
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Ise 1984 02:03:2 AX=11 Bliss-32 V4.0-742 Page 21. 
RMSSPLIT_UDR 12786571382 18:03 4 RMS . SREIRMSSPLUDR(B3021 : 3) 
0987 IRABCIRBSV_NEW_BKTS] = 1;  ! assume 2-bkt split until showed otherwise 
0988 NUM_RRVS = 0; ! this zeroes NEED_RRV and NOT_NEED_RRV 
0989 POS_INSERT = .REC_ADDR; 
0990 REC"ADDR = .BKT_ADDR + BKT$C_OVERHDSZ; 
0991 EOB-= .BKT_ADDR™+ .BKT_ADDRLBKT$W_FREESPACE); 
099 LAST = 0; 
099 
0994 dO 
0995 BEGIN 
0996 
0997 BUILTIN 
0998 AP; 
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PVA BBS BS BR BN BN BN BR BBB BB BB BB LV LISP TST STST ISVS VSS VSS SISTINE SS ES 


al enh cath eal ce el cal eel ce cl cael el ea ei eal el an lh oe cael el el cl cl cl cl cl cl el ch cel cil cil cael els el els els cals els el 
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BS PANAMA NWA NAIA RINPININININININIDN 4 2 OO OO SS SKS OOOOOCOCO 


IF .REC_ADDRCIRC$V_RRVJ 

EXITLOOP; 
AP = 3; 
ec ante: EQLU RMS$RECORD_VBN() 

NEED_RRV = .NEED_RRV + 1 
the records not requiring rrv's are counted also because in the 
case where we're splicing due to lack of id's, the lhs side will 
fit with the new record if any of the record being moved to the 
new bucket doesn't require anrrv. this will be checked when we 


check to see if the lhs will fit after the first point that the 
rhs fits. 


SE 
NOT_NEED_RRV = .NOT_NEED_RRV + 1; 


LAST = .REC_ADDR; 
RASGETMERT FECL) 
UNTIL .REC_ADDR GEQU .E0B; 
! set split_2 and split_1 to be eob, so if there's less than 3 new buckets 
! bkt_spl can use the value w/o having to recalculate it also set up the 
, bucket size and the record size 


{RABCIRBSW_SPLIT_1] = IRABCIRBS$W_SPLIT_2] = .REC_ADDR - .BKT_ADDR; 
BKTSIZE = 7IDX_DFNCIDX$B_DATBKTS7]*512~- BKT$C_OVERHDSZ - 1; 


REC_SIZE = .RABCRABSW_RSZ] + IRCSC_FIXOVHDSZ; 
os a SFABCIFESE_RFRORG) NEQ FABSC_FIX 
REC_SIZE = .REC_SIZE + 2; 
if this is an update, may have to count in an rrv for the existing record 
IF .IRABCIRB$V_UPDATE) 


THEN 
BEGIN 
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if, POSC BOOS. VER EQLU .IRABCIRB$L_PUTUP_VBN] 
NEED_RRV = .NEED_RRV + 1 
END; 
RRV = .EOB = .REC_ADDR; ' size of existing rrv's 
EOB = .REC_ADDR; ! adjust eob 


special case it, if the bucket was all rrv's 


If REC_ADDR EQLU .BKT_ADDR + BKTSC_OVERHDSZ 
BEGIN 


! bkt is all rrv's ret the record wouldn't fit so we need to 

! allocate another bkt ( 2 bkt split) yet special case it so as not 
! to make another idx entry only to update the existing one by 
setting empty bucket flag 


[RABCIRB$W_SPLIT] = .REC_ADDR - .BKT_ADDR; 
LEAVE DO_IT 


END; ! { of special case an all-rrv bucket } 


special case -- if we can detect a possible ascending order to these | 
records it probably will be better to do a straight point of insert split 
this would put the new record in a bucket all Ticeihes 

t 


Pe ee Se Ge Be Ge Fe te SO ee Oe Oe OH Se SH ee SHES ee SHB Se Se See SH Se Beas 


do this kind of split if and only if all the following conditions are met: 
1) the record is being inserted at the end of bucke 
2) the Last record physically in the bkt is the last record to have 
been inserted 
3) the Last record and the new record do not have duplicate key values 


note that if they are duplicates, we can still make an optimization by 
skipping the 50-50 split code 


note that last cannot be zero, since if it were we 
would have an all rrv bkt 


IF .POS_INSERT EQLU .REC_ADDR 
a4 SE LASTCIRCSB_1D] + 1) 


AND %X‘FF') EQLU .BKT_ADDRCBKT$B_NXTRECIDI) 


BEGIN 
REC_ADDR = .LAST; 
fy SFOCORPRRE PECCESVEW ADORED), - IDX_DFNCIDX$B_KEYSZ], 0) 
BEGIN 
!' since we have detected a possible ascending order in the input 


! Let's try to optimize a Little and split at the point of insert 
' send the record by itself into the new bucket have to set up the 


| RM3SPLUDR ise Sep-1984 AX-11 Bliss-32 V4. 309 Page 23 
, V04-000 RMSSPLIT_UDR 14- ~3ep- 1984 98: Sie RMS SREIRMESPLUDR. B32 3 , & 
ee key value and the split point and that's it 
$08 RMSMOVE_KEY(.REC_ADDR 43% 
044 RABE IRBSU SPLITI = . [RAB TRBSu Ras. INS3; 
045 LEAVE DO “tr: 
046 
047 END 
048 SE 
eh LEAVE HALF; 
051 ' { end of trying to special case insertion of records in ascending 
026 : order } 
05 : 
054 END; 
055 
056 REC ADDR = .BKT Anne + ri -OVERHDSZ; 
057 LAST_ DIFF = AX'7FeRFFFF' 
058 LAST = 
O28 SAVE _REC. -W_LO = 0; 
061 ' start from the peaeers of the pyckes and scan rightward. first find the 
B88 i Ist place the rhs will fit in 1 bkt then, as long as the Lhs will fit in 
06 i a bkt, try to find an optimal point if there is no point where the rhs 
064 i and ths will both fit. we can't do a 2-bkt split and this case will fall 
065 i out 
066 
67 
u68 WHILE 1 
DO 
BEG! 


~ 
-o 


N 

RHS = .E0B - .REC_ADDR; 
IF pret. ADDR LEQU .POS_INSERT 
Baa . IRABCIRB$V_REC_W_LOJ 

RHS = .RHS + .REC_SIZE; 
the right hand side fits if there is enou - room and there are id's 
available. id's are always available in the new bucket in the update 
situation, or it we're leaving at least 1 record behind in the old 


bucket. note that nxtrecid is always zeroed if this is a split due to 
Lack of id's. 


COOOoN NNN NNN 


IF .RHS LSSU .BKTSIZE 
(.BKT_ADDRCBKT$B_NXTRECID] NEQ 0 
. IRABCIRBSV_UPDATE 
-REC_ADDR NEGA (.BKT_ADDR + BKTSC_OVERHDSZ) 
7 JRABCIRBSV_REC_W_LOJ) 


THE 
BEGIN 
LHS = .REC_ADDR - (.BKT_ADDR + BKTSC_OVERHDSZ); 
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IF ,REC_ADDR GEQU .POS, INSERT 
yr LRABCIRESV_RECW_LOJ 
LHS = .LHS + .REC_SIZE; 


will lhs fit ? Lhs doesn't fit if there is no space in the 

bucket, or if there won't be any id's available in the bucket, 

if not & if there is no previous point at which it fit, goto 3=bkt 
split code if there is a previous place where we could have had a 
2-bkt split, use it 


lelelelelelelelelele}s) 


AUEWN CO OCDNAUE WN OO ODNAUE WN “OO DNAUES WIN —OO 


IF .LHS + .RRV + (7*.NEED_RRV) GTRU .BKTSIZE 


! id's will be available in the original bucket if we aren't 
out of id's to begin with, this is an update, any record 
being moved out doesn't need an rrv, or the new record is 
going in the new bucket 


CHoasmcsace 


(;8KT_ADDACBKTSB_NKTRECID3 EQL 0 
NOT . IRABCIRBSV_UPDATE] 
.NOT_NEED_RRV EQL 0 

“= . IRABLIRB$V_REC_W_LOJ) 

BEGIN 

IF .LAST EQL 0 
EXITLOOP; 

REC_ADDR = .LAST; 


IF NOT .SAVE_REC_W_LO 


TMP = .REC_ADDR 


REC_ADDR =~.BKT_ADDR + BKT$C_OVERHDSZ; 
LAST = .REC_ADOR; 


WHILE .REC_ADDR NEQU . TMP 
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IRABCIRBSV_REC_W_LOJ = 0; 

0 ! 2 bkt split is possible rec_addr points to the most 
1 ! optimal place since we had to back up, reset last to point 
§ to the record immediately before the split point 

¢ BEGIN 

6 LOCAL 

7? TMP; 
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N 
LAST = .REC_ADDR; 
RMSGETNEXT_REC(); 
END; 
END; 
RMSMOVE_KEY(.LAST, .REC_ADDR) 


EC 3 
IRABCIRB$W_SPLITJ = .REC_ADOR - .BKT_ADDR; 

. 

i 


! treat another excep 


ion case of the new record going off into 
} a cont. bkt all by itself 


IF JRABCIRBSWSPLIT] EQLU .1RABLIRBSW_POS_ INS] 


cataract la EQLU .IRABCIRB$W_SPLIT_1] 


IF NOT .IRABCIRB$V_REC_W_LOJ 
THEN 
BEGIN 
BUILTIN 
AP; 


AP = 3; 
IF NOT RMSCOMPARE_KEY(KEYBUF_ADDR(2), 
KEYBUF_A ° 
sie . 1DX_DFNCIDX$B_KEYSZ]) 
IRABCIRB$V_CONT_BKT) = 1; 
END; 
LEAVE DO_IT 
END; ! { end of Lhs doesn't fit anymore } 
: ths fits also, calculate the magic ratio 
DIFFERENCE = (.LHS*.BKTSIZE) - (.RHS*(.BKTSIZE - (7*.NEED_RRV) - 
IF .DIFFERENCE GEQ 0 
THEN 
BEGIN 
! found the Ist point at which the magic ratio is positive 
was the last point more optimal, if so use it 
oF eet DEPT EREME) GTRU ABS(.LAST_DIFF) 
BEGIN 
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—v04-0 RMSSPLIT_UDR 14-Sep-19 RMS.SRCIRM3SPLUDR.B32; 1 ve 
7 : IF_.REC_ADDR EQLU .LAST 
7 TH 
f IRABCIRB$SV_REC_W_LOJ = 0 
d (REC_ADDR = .LAST; 
f IF -RECLADDR LSSU .POS_INSERT 
° IRABCIRB$V_REC_W_LOJ = 0); 
LAST = 0; 
END; 


! 2=bkt split is possible rec_addr points to the most 
optimal place 
IF _.LAST EQL 0 
THEN 
BEGIN 
LOCAL 
T 


! just backed up rec_addr, need to recalc Last 


TMP = .REC_ADDR; 
REC_ADDR = .BKT_ADDR + BKTSC_OVERHDSZ; 
LAST = .REC_ADDR; 


—— »-REC_ADDR NEQU .TMP 


LAST = .REC_ADDR; 
RNSGETNEXT_REC (); 
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END; 
RMSMOVE_KEY(.LAST, .REC_ADDR); 

2 3 IRABCIRB$W_SPLIT] = .REC_ADDR - .BKT_ADDR; 
5 31 ! treat another exception case of the new record going off into 
2 2 a cont. bkt all by itself 
5 31 ; 
5 31 IF .IRABCIRB$W_SPLIT] EQLU .IRABLIRB$W_POS_INS) 
; 1 THEN 
5 31 IF .IRABCIRBSW_SPLIT] EQLU .IRABCIRBS$W_SPLIT_1] 
° 35 THEN 
6 32 IF NOT .IRABCIRBSV_REC_W_LOJ 
6 32 THEN 
6 32 BEGIN 
6 32 
6 $5 BUILTIN 
6 2 AP; 
6 32 


1 , 
situ IECSESHBHE (GUTS WMG JaBARS AM 824 


v04-000 RMSSPLIT_UDR -Sep- RMS. SRC PLUDR.B32; 
; 3 AP = 3; 

; 1 IF NOT RMSCOMPARE_KEY(KEYBUF_ADDR(2), 

; ; KEYBUF -A DR(3) 

; ; am . 10X_DFNCIBX$B_KEYS7]) 

; 3 IRABLIRBSV_CONT_BKT] = 1; 

; 3 END; 

3 3 LEAVE DO_IT 


END; 


! the magic ratio isn't positive yet, so save all the context and 
move on to the next record 


LAST_DIFF = .DIFFERENCE; 
LAST~= .REC_ADDR; 


i _ IRABCIRGSV_RECU LOD 
SAVE_REC_W_LO = 1; 
END; : 
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{ end of rhs fits, is this a good point? } 
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34 go on to the next record 

29 NEXT : _ 

$3 BEGIN 

3 IF pnet_poen EQLU .POS_INSERT 

30 NOT .JRABCIRB$V_REC_W_LOJ 

30 HEN 

S BEGIN 

306 ! if this is an update and we pass the record, check to see if it 
it i } needed an rrv 

309 9 if , IRABCIRB$V_UPDATE) 

310 70 

311 71 BEGIN 

$16 % 

$12 fe IF .BDBCBDBSL_VBN] EQLU .IRABCIRBS$L_PUTUP_VBN] 
$15 75 NEED_RRV = .NEED_RRV - 1; 
316 76 

317 77 END; 

318 78 

319 79 IRABCIRB$V_REC_W LO) = 1; 

$50 $} RMSMOVE_KEY(.REC_ADDR, .REC_ADDR); 
322 $¢ IF .REC_ADDR EQLU .EOB 

323 8 

324 84 LEAVE NEXT 

325 85 
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] 


-Sep-1 RMS.SRCJRM SPLUDR B32¢ 
IF RMSCOMPARE _REC(KEYBUF _ADDR(2), .IDX_DFNCIDX$B_KEYSZ], 0) 
LEAVE NEXT; 
END; ! { end of at position for insert for the Ist time } | 
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! fool move key a Little by always clearing rec_w_lo to yevers et the 
! key associated w/ the record at pos_ins. (1 think it is the key of 
the record we are pointing to, not Ehe one at pos_ins...) 


BEGIN 


LOCAL 
TMP : BYTE; 


TMP = .IRABCIRB$B_SPL_BITS); 
IRABLIRBS$V_REC_W_CO] = 0; 
RMSMOVE_KEY(.REC-ADDR, .REC_ADDR); 
TRABLIRBSB_SPL_BITSI = TMP 


BEGIN 
BUILTIN 
AP; 


IF .REC_ADDR EQLU .EOB 
EXITLOOP; 
AP = 3; 
ff ,SOStEDeSL VEN EQLU RMSRECORD_VBN() 
NEED_RRV = .NEED_RRV - 1 
NOT_NEED_RRV = .NOT_NEED_RRV - 1; 
RMSGETNEXT_REC(); 
IF oREC_ADDR EQLU .E0B 
EXITLOOP; 
END 
compare_rec returns 0 if a match 
UNTIL RMSCOMPARE_REC(KEYBUF_ADDR(2), .IDX_DFNCIDX$B_KEYSZ], 0); 
! if the key compares brought us up to the pos of insert, see if the 


rey of the new record matches. if it does, have to include it w/ the 
S 
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IF .REC_ADDR EQLU .POS_INSERT 
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kK 1 
RMSSPLIT_UDR 1er8ebn 138s 98:88: AMS. SREIRMSSPLUDR 832074 euett | 
1443 THEN 


144 BEGIN 
445 
BUILTIN 
AP; 
AP = 3; 


IF NOT RMSCOMPARE_KEY ( 


THEN 
BEGIN 
IRABLIRB$SV_REC_W_LOJ = 1; 

IF .IRABCIRBSV_UPDATE) 
-BDBCBDBSL_VBN] EQLU .IRABLIRBSL_PUTUP_VBNJ 


NEED_RRV = .NEED_RRV - 1; 
END; 


| 
KEVBUF _ADOR(2), 
KEYBUF~ADDR(3), 
IDX_DFACIDX$B_KEYSZ]) 
END; 
IF .REC_ADDR GTRU .POS_INSERT 
THEN 
BEGIN 
IRABLIRB$V_REC_W_LOJ = 1; 
IF . IRABLIRBSV_UPDATE] 
: yy BOBCBDBSL_VENI EQLU .IRABLCIRBSL_PUTUP_VBN) 
NEED_RRV = .NEED_RRV - 1; 
ND; | 


END; ' {end of next } 
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END; ! { end of scanning to find optimal split point } 
END; ! { end of half } 
define a new block here so local storage can be redefined 
BEGIN 
RO 
BEG_CHAIN = LHS 2%, 
END-CHAIN = RHS %, 
1 NUM_DUPS = NUM_RRVS 2%, 
; DUPS = RRV 2; 
4 BUILTIN 
; AP; 
? ! must be a 3 or 4 bucket split or we detected ascending order and the new 
8 ' record was a dupe. we'll optimize here to the extent of trying to keep a 
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' dup chain around the new record together and in the middle bucket 


hg aS Fae oe ee ee eee | 
Woas000" RMSSPLIT_UDR 1-50-19 13:07:20 ERMS|SRCSRMSSPLUDR.03>; dealt 


& : note that in all the cases that follow the new regere is going into the 
: middle bucket. therefore, the ‘'lhs'’ will always fit, since it can only 

: get smaller ( or stay the same size, in the degenerate case). also note 

! that in any of these case, the left hand bucket may be empty of data 

i records (have only rrv's in it) if the first split point is at the 

beginning and all data records get moved out 


RAB Rasy Wey. BKT sy = gi ! assume 3-bkt split until shown otherwise 
RABCIRB$V-REC_W_LOJ = 0; 


i 
| 
initialize key buffer 2 with the contents of key buffer 3 (the value 
; 
i 
' 
i 
: 


, 
es 
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of the primary key of the record being inserted). This is aecoqsers 
! when the new record is at the beginning of the bucket and is going nto 
a bucket all by itself and there were already 255 records in their 
: orre"ne bucket and they all need rrv's therefore they all move into the 
next bucket. At any rate, that seems to be the only case where key buffer 
: f cs Sas correct coming into here and will be set correctly before 
eaving. 


' 
RMSMOVE (. IDX_DFNCIDX$B_KEYSZJ, KEYBUF_ADDR(3), KEYBUF _ADDR(2)); 


! find beginning and end of this possible dups chain equal to the key value 
of the record being inserted. 


REC_ADDR = .BKT_ADDR + BKT$C_OVERHDSZ; 
BEGIN | 
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6 LOCAL 
? STATUS; | 
WHILE STATUS = RMSCOMPARE_REC(KEYBUF_ADDR(3), .IRABCIRBSB_KEYSZJ, 0) 
4? BEGIN | 
474 IF .REC_ADDR LSSU .POS_INSERT 
475 THEN | 
476 BEGIN 
477 P = 0; | 
478 RMSRECORD_KEY (KEYBUF _ADDR(2)); 
479 END; 
480 
481 1 IF .REC_ADDR EQLU .E0B 
re ; R 
48 «STATUS LSS 0 
484 4 THEN 
ret 2 BEGIN 
487 7? ! ri!! SPLIT TYPE 3 !!!! no duplicates found for simplicity, do a | 
488 8 ! 3-bkt split at the point of insert w/ new record in its own 
re4 bucket 
491 1 JRABLIRB$W_SPLIT] = IRABCIRBSW_SPLIT_1] = .IRABCIRBS$W_POS_ INS); 
498 ¢ LEAVE DO_IT 
rhe $ { end of didn't find a duplicate, put record in its own bucket } 
496 6 END; 


. 
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16-$ 
RMSSPLIT_UDR 14-$ 1 RMS ..SRCIRMSSPLUDR.B32; 


RMSGETNEXT_REC(); 
END; ! { end of while no duplicate has been found } 


END; ! { end of block defining status for while loop } 
found the beginning of the dups chain, now find the end 


Sse 


eloleleloa) 
VPWwrn— 


NUM_DUPS = 0; 
BEG_CHAIN = .REC_ADDR; 
dO 


NUM_DUPS = .NUM_DUPS + 1; 
RMSGETNEXT_REC(); 


IF .REC_ADDR EQLU .E0B 
EXITLOOP; 

END 

UNTIL RMSCOMPARE_REC(KEYBUF _ADDR(3), .IRABCIRBSB_KEYSZ], 0); 
! compare_rec returns 0 if keys match 

END_CHAIN = .REC_ADDR; 
! found the beginning and the end of the chain calculate its size if we got 
! here via an update, we never called rm$srch_by_key to set dups_seen 
for us. so let us do that now if necessary 
IF .POS_INSERT GTRU .BEG_CHAIN 

IRABCIRB$V_DUPS_SEEN] = 1; 
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DUPS = .END_CHAIN = .BEG_CHAIN; 
DUPS = .DUPS + .REC_SIZE; 
IF .DUPS LSSU .BKTSIZE 
97 ! if there are 255 dupes on a put, there won't be enough id's in the 
; + } new bucket even if there is enough space for them. 
00 AND 
1 4 (, IRABCIRBS$SV_UPDATE) 
: 08 »NUM_DUPS<0, 8> LEQU 254) 
544 04 THEN 
545 05 BEGIN 
546 606 
547 607 '¢ 
548 608 : 229) SPLIT TVPE T itet 
549 609 ! duplicates found gnd fortunately, they all fit | 
550 610 ! in one bucket so S-bkt split w/ all of the dups in the middle bucket 
551 611 ' because of the optimization used for dups being inserted ‘‘in order’’ 
236 org ' this can sitll be a 2=bkt split if the new record is being inserted 
55 61 ! at the end of the bucket 
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N 1 
| RMSSPLUDR 16-Sep-1984 02:03:2 AX-11 Bliss-32 V4.0-74 
voe~000 RMSSPLIT_UDR 1e-Sep-19 4 9g iOF ie RMS.SRCIRMSSPLUDR.B32; 
> 1554 1614 ! 22-jan-79 if loa forced us to think that a 
; 1555 1615 ! bkt w/ all dups had to be split ( only on put? be smart and just put 
3 3 2 1918 ! new record by itself a better solution would be not to split at all, 
3 155 161 : byt at Shis date it's rather inconceivable 
3 1228 1918 ! 23-jan-79 it's not galy loa 
; 1559 161 ' that can fool us, the bkt might have had a lot of rrv's 
; 1560 1620 te 
; 1561 1621 
3 1206 16 § 5 IRABCIRBSW_SPLITJ] = .BEG CHAIN = .BKT_ADDR; 
$ 1207 i 2 IRABLIRB$W_SPLIT_1] = .END_CHAIN = .BRT_ADDR; 
; 1565 1625 : IF .END_CHAIN EQLU .c0B 
; 1566 1626 THEN 
3; 1567 1627 6 BEGIN 
: 1568 1628 6 IRABCIRBS$SV_NEW_BKTS] = 1; 
: 1569 log? 6 
; 1570 1630 7 IF .BEG_CHAIN EQLU (.BKT_ADDR + BKT$C_OVERHDSZ) 
: 1571 1631 6 THEN 
: 1376 1636 7 BEGIN 
3; 157 1633 7 IRABCIRB$SW_SPLIT_1] = .IRABCIRB$W_SPLIT_2]; 
> 1574 1634 7 IRABCIRB$W_SPLIT] =_.IRABLIRBS$W_POS_INSJ; 
: 1575 1635 7 IRABLIRBSV_CONT_BKTJ = 1; 
; 1576 1636 7 END 
3; 1577 1637 7 
3; 1578 1638 6 END 
3: 1579 1639 5 ELSE 
: 1580 1640 6 BEGIN 
: 1581 1641 6 
; 1386 | 2 IF .IRABCIRB$W_SPLIT] EQLU BKT$C_OVERHDSZ<0, 16> 
3 1584 1644 6 IRABCIRB$V_EMPTY_BKT) = 1; 
; 1585 1645 6 
; 1586 1646 6 : Only force the record into the low bucket if it is not the 
: 1587 1647 6 ! first one in the duplicate chain. 
; 1588 1648 6 ! 
; 1589 1649 6 
: 1590 1650 6 IF .END_CHAIN GEQU .POS_INSERT 
: 1591 1651 6 AND .TRABLIRB$W_SPLIT] NEQU .IRABCIRB$W_POS_INS] 
: 1236 1652 6 THE 
; 189 1653 6 IRABCIRB$V_REC_W_LOJ = 1; 
3: 1594 1654 5 ND; 
3; 1595 1655 5 
: 1596 1656 5 LEAVE DO_IT 
; 1597 1657 5 
$ HF 4 1638 : END; ! { end of duplicates found and they fit in one bucket } 
3; 1600 1660 4 ! if we had 255 dupes above we dropped thru to here and this next test 
; 1601 1661 4 ! will fail because it can only happen on an update so the all dupes case 
: 1602 1006 4 ! will fall thru to split type 2, which will put the new record by itself. 
; 1605 1665 4 ! consider oddball update case in which there are dups before and after 
3 1604 1664 4 ! position of insert. ( note that if this case doesn't apply, the duplicates 
3 1605 1665 4 ! were only before or after -- and didn't fit w/ record -- so new record 
; 1606 1666 4 ! will end up by itself. for code flow purposes, leave that till later). 
: 1607 1667 4 } 
: 1608 1668 4 
: 1609 1669 4 IF .IRABCIRB$SV_DUPS_SEENJ 
: 1610 1670 4 AND 
| 


ne 
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Oo 


try to fit new record w/ before-dups in middle bucket 


i ~ ( ND CHAIN = .POS_INSERT) LSSU .BKTSIZE 
BEGIN 


3 or 4 bkt split ( depending on status of 


MIMI 


' 

i 

' 

! high set) where left-middle bkt is new record ue wa tocentupe 

! and right-middle bkt, if it is needed, is a continuation bkt | 
! w/ the after-dups. it is needed iff the dups aren't the whole hi 
set it still is a continuation bkt. 
i 
i 
i 


PEEEE 


eeeee NOTE FROM NOV-7-78 

This case doesn't take into account the fact that the 

whole bucket may be dups. In the case of all dups, we couid 
end up generating an empty bucket when we don't have to (if 


B 2 

P 16-Sep-1984 02:03:28 AX-11 Bliss-32 V4.0-742 Page 33 
v04-000 RMSSPLIT_UDR 1er8een 1984 2:01:60 EANS SREIRASSPLUDRB32/4 ~ 
>; 1611 1671 4 sEND_CHAIN GTRU .POS_INSERT 
: 1916 1676 4 HEN 
; 161 167 BEGIN 
> 1614 1674 
: 1615 1675 IF_.DUPS = (.POS_INSERT = .BEG_CHAIN) LSSU .BKTSIZE 
: 1616 1676 5 THEN 
: 1617 1677 5 ; 
; 1618 1678 5 ! if high dups will fit w/ record, put them in a bucket together 
: 1619 1679 5 ! 
: 1620 1680 6 BEGIN 
: 1621 1681 6 
: 16 g 1056 6 1+ 
; 16 1683 6 1 ''t! SPLIT TYPE 4 !!!! 
; 1624 1684 6 ! 3 bkt split where middle bkt is a continuation bkt containing 
: 1625 1685 6 ' new record and dups following it 
3 1626 1686 6 ! 
; 1627 1687 6 ! tii! AND SPLIT TYPE 4B !!!!! however, if the hi set consists 
; 1628 1688 6 ! solely of duplicates, we can still have a 2=bkt split case that 
3: 1629 1689 6 ! would not have been ptenee up by the previous algorithm ( since 
3; 1630 1690 6 ! it won't divide dups). 

1; 1631 1691 6 le 

3 1632 1692 6 
3; 1633 1693 6 IRABCIRB$V_CONT_BKT] = 1; | 
> 1634 1694 6 IRABLIRBSW_SPLIT] = .IRABLIRBSW_POS_INS); 
: 1635 1695 6 
3; 1636 1696 6 IF .END_CHAIN EQLU .EOB 
3: 1637 1697 6 THEN 
; 1638 1698 6 IRABCIRBS$V_NEW_BKTS] = 1 
> 1639 1699 6 SE 
: 1640 1700 6 IRABCIRB$W_SPLIT_1] = .END_CHAIN = .BKT_ADDR; 
: 1641 1701 6 
; 1642 1702 6 REC_ADDR = .BEG_CHAIN; 
: 1643 1703 6 AP = 0; | 
> 1644 1704 6 RMSRECORD_KEY(KEYBUF _ADDR(2)); 
3: 1645 1705 6 LEAVE DO_TT 
3 1646 1706 6 
3 1647 1707 5 END; 
3: 1648 1708 5$ 
3; 1649 1709 5 
; 1650 1710 5§ 
3: 1651 i711 3 
3: 1652 17 ; 5 
3; 1653 17 5 
3: 1654 1714 6 
3: 1655 1715 6 
: 1656 1716 6 
: 1657 1717 6 
; 1658 1718 6 
: 1659 1719 6 
3; 1 1720 6 
3 (1 1721 6 
: 4 17 ; 6 
: 1 17 6 
3 1 1724 6 
3: 1 1725 6 
: 1 1726 6 
3 1 1727 6 


ee 


WANIANANwiror 


wrod 


DD DDD DDADMIN BS BS BS BE EE EWA 
AUS WIV OOONAUE WN O OONAUE WN COONOU 


ee ee ed ee ee ee ee ed ce ee cee a ee ce ee ed ee ce ed ee a a a el ce ce ca ce ce ce ce a ee ce ee ce ond ee ee ce oe ce ee ce ee ca cee ee ae ed eB ee g 
ee a ce cee ee a ee ee ce ee cee cel ce en cee a ee cc ce ae ce ce ce a ce ce a ee ce a ce ce ce ce ec cae a a ce el ee cl ee ce ce el i ae ee eB ecco 
SSS SSS SSS SSS SSS SSS SSS SSS SSS SSS 
PERL LEE PN SKE LSE EE EEE EPMA AAAA NNN AAAAAAAAAAAAOAO 


Be Se Se Be Oe Be Ge Se Se Oe Be Be Be Se Se Ge FH Se Se Ge He Se Se Se BeBe Ge Ss oe FHS Se Se Se Os Se Se Ss Se Se SH Se 5 Se SHO Se Se SH Ss Se SESH Sees ese 


POPRIPIPIDY a "© 
PWM OOONOUS WNC OOn 
0009000908 SI SINS NNN NN NNO 
EWN $0 OONOUS WN -OOOan 


1E-Se0-1986 02:08:28 yayett Ol i54-32 v4.0-742 


' mo RRV's) or a relatively useless bucket (some RRV's). In any 


! event we could end up generating an extra bucket when we 
don't have to 


IRABCIRB$W_SPLIT] = .BEG_CHAIN = .BKT_ADDR; 

IRABCIRB$W-SPLIT_1] = . IRABLIRBS$W_POS~INSJ; 

IF_.IRABCIRBSW_SPLIT] EQLU BKT$C_OVERHDSZ<0, 16> 
IRABLIRBSV_EMPTY_BKT] = 1; 

IRABLIRBS$V_REC_W_LOJ = 1; 

IF .END CHAIN LSSU .E0B 

THEN 


BEGIN 

IRABCIRB$V_NEW_BKTS] = 3; 

JRABCIRGSW_SPLIT_24 = .END_CHAIN = .BKT_ADDR; 
ELSE 

IRABCIRB$V_CONT_RJ = 1; 
LEAVE DO_IT 
END; 


{ end of oddball update case w/ dups on both sides of new record } 
END; 
+ 


the new record aust 2's by itself therefore, é 

this is a 3-bkt split if there are no after-dups or no hi set and a 4-bkt 
split if both of those exist even more exceptional, this can still be a 
Pee} split if there is no hi set at all ---- i.e., eob = end of the dups 
chain 


IRABLIRBSW_SPLIT] = IRABCIRBSW_SPLIT_1] = .IRABLIRBSW_POS_INSJ; 
IF. IRABCIRB$V_DUPS_SEENJ 
THEN 

BEGIN 

IRABLIRBSV_CONT_BKT] = 1; 

REC_ADDR =" .BEG_CHAIN; 

RMSRECORD_KEY (KEYBUF _ADDR(2)) ; 


4 -POS_INSERT EQLU .E0B 


IRABLIRB$SV_NEW_BKTS] = 1 
ELSE 


IF .POS_INSERT LSSU .END_CHAIN 
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RMSSP UDR 16 A Sia 4 AX-11 B 32 v4. 3542 Pp 5 | 
v04=0 000 RMSSPLIT_UDR 1a-S8ep- 1384 ¢: BFe Yas SRE IRMeSPCUR OG B32; 1 mg S| 
if é 1786 THEN ein 
: 17 17 
3 i 8 1788 IF .END CHAIN LSSU .EOB 
: 1730 1790 TRABLIRB$V_NEW_BKTS) = 
: 1230 1290 CIRB$V_NEW_BKTS] = 3 
3 Vy ¢ 1138 2 IRABCIRB$V_CONT_R] = 
+ 1734 1794 5 RABLIRBSW_SPLIT ~END_CHAIN = .BKT_ADDR; 
; 1138 1798 1RaBl BSW_SPLIT_2] = .END_CHAI BKT_ADD 
: 1737 1297 3 END; ! { end of block defining local symbols } 
; 1739 1799 2 END; ! {€ end of do_it } 
: 1741 1801 ! if the first split point is at the Ht pwttny of , the data, this means that 
; \7h¢ 1308 i all data records will be moved out an only rrv's will be left in the 
3 174 180 original bucket ..... therefore, we can mark this bucket as empty 
+ 1744 1804 i 
: 1745 1805 ; 
; 1746 1806 é IF .IRABCIRBSW_SPLIT] EQLU BKTSC_OVERHDSZ<0, 16> 
: 1748 1808 : NOT . JRABCIRBS$V_REC_W_LOJ 
: 1750 1810 2 IRABLIRBSV_EMPTY_BKT) = 1; 
> 1751 1811 : 
1788 Oe Fe at. 
: 1754 1814 1 END; ! { end of routine } 
OC BB 00000 RMSSPLIT_UDR:: | 
PUSHR #*M<R2,R3> : 0874 
5E 20 C2 0000 SUBL 432. : 
44 AD 48 8F 8A 0000 BICB 88 ¢1RAB : 0986 
44 «AD 02 01 01 FO OOO0A INSV. #1, #1, #2, $8(IRAB) : 0987 
7E D4 00010 CLRL NUM_RR VS : 0988 
56 DD 90012 PUSHL REC™ADDR : 0989 
52 OE AS 9E 00014 MOVAB =: 14(R5) R2 ; 0990 
36 52 0 00018 OVL  R2, REC_A : 
6 04 AS 3¢ 1B MOVZWL rat Te CTBDRD RO : 0991. 
6045 9F Boot PUSHAB (RO S)LBKT. ADOR] 3 
7E D4 00022 CLRL LAST : 0992 | 
20 b&b 6 EO 00024 1$: BBS a3. (REC_ADDR), 4$ ; +e | 
5¢ 0028 MOVL a3, A : 1004 
00006 0028 BSBW = RMSRECORD_ VBN : 1006 | 
50 1c A& OI 8 ; CMPL 8(BDB), RO 3 
05 12 000 BNEQ $ 3 
0c A 86 4 INC NUM_RRVS ; 1008 | 
OE AE B 9 a: INCW  NUM_RRVS+#2 : 1018 | 
6E£ 3 p C 3$: MOVL §REC™ADDR, LAST ; 1920 | 
90006 : BSBW  RMSGETNEXT_REC > 1021 
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V RMSSPLIT_UDR 14-Sep-1 RMS. SRCIRM3SPLUDR.B32; 
04 AE 56 D1 0004 CMPL = REC_ADDR, E0B : 1023 ; 
: +t and BLSS § : : 
50 S6 C3 00048 4$ SUBL3 BKT_ADDR, REC_ADDR, RO + 1029 3 
4E AD 0 B0 O04¢ MOVW  RO,~78(IRAB) : ; 
4C Ad 9 0 905 MOVW RO. 76(IRAB) : ; 
51 17 A? 9A 00054 MOVZBL 23(IDX_DFN), R1 + 1030 ; 
51 51 09 78 00058 ASHL R1- R1 : | ; 
1c «OAL Fl. oA 3 005¢ MOVAB -15(R15, BKTSIZE : ; 
2 AE 22 AB ¢ 0061 MOVZWL 34(RAB). REC_SIZE + 1032 ; 
2C OA 07 7 0066 ADDL , REC SIZE : F 
01 50 AA 006A CMPB BOCIFABY, # + 1034 ; 
94 1 O06 BEQL : ; 
2C oA : C ADDL2 #2, REC_SIZE + 1036. ; 
OA 06 Ad 03 £1 00074 5$ BBC * 6(IRAB), 6$ + 1040. ; 
78 AG 1¢ A 01 00079 CMPL 28(8DB), 120(IRAB) + 1044 | : 
03 12 0007E BNEQ : | : 
Oc AE 8 0008 INCW_ §NUM_RRVS > 1046) ; 
20 AE 04 AE 56 C3 00083 6S: SUBL3 RECTADDR, EOB, RRV + 1050. ; 
04 AE 56 DO 00089 MOVL REC-ADDR, E0B > 1051 : 
56 D1 0008D CMPL = REC"ADDR, R2 > 1056) ; 
03 12 00090 BNEQ 7$ : | ; 
O2FD 31 009¢ BRW 47$ : F 
SB 08 AE D1 00095 7s: CMPL - POS_INSERT, REC_ADDR + 1087. ; 
3B 12 90099 BNEQ 9 ; | : 
51 6E 01 cI 0098 ADDL3 #1, LAST, R1 + 1089 F 
50 61 9A 90095 MOVZBL (R1), RO : : 
50 06 OO0A2 INCL R : ; 
06 AS 50 91 0004 CMPB  =s- RO, 6 (BKT_ADDR) : F 
2¢ 1 000A8 BNEQ : ; 
56 6E DO OOOAA MOVL LAST, REC_ADDR + 1092 ; 
7e D4 OOOAD CLRL = SPS + 1094. F 
7E 20 A? 9A OOOAE MOVZBL 32 1Dx DFN), -(SP) ; F 
50 00B4 CA 3C 000B3 MOVZWL 180(IFAB) : : 
60 8940 3F 000B8 PUSHAW @96(IRAB) (RO) ; ; 
00006 30 000BC BSBW  § RMSCOMPARE_REC : ; 
5 0¢ CO O00BF ADDL2 #12, SP ; ; 
0 50 58 00C? BLES. ; ; 
0258 31 000¢5 BRW 4 ; : 
50 56 b0 908 8$: MOVL  REC_ADDR, RO > 1103) ; 
FEA9 30 000CB BSBW RMSMOVE KEY 3 3 
4A AD 48 Ad 80 doce MOVW 22 C1RABY, 74(1RAB) > 1104 : 
0448 1 0000 BRW 72$ ; 1105 : 
56 OF A i 0006 9$: MOVAB 14(RS), REC_ADDR : 1116) ; 
24 AE 7FFFFFFF 868F OD ODA MOVL #21474836477 LAST_DIFF : 1117 ; 
6— D4 000E2 CLRL ~— LAST + 1118 3 
28 AE D4 OO0ES CLRL_  SAVE_REC_W_LO : 1119 : 
56 C3 OO0E7 108 SUBL3 REC_ADDR> FOB, RHS : 1131 : 
56 D1 OO0ED CMPL = REC"ADDR, POS_INSERT : 1133. ; 
OA 1A OOOF1 BGTRU 11$ : | : 
03 E OOF S 5 #3, 68(IRAB), 11% : 1135 3 
2¢ = AE «CO 000F ADDL2 REC_SIZE, RHS : 113? : 
10 AE D1 OOOFD 118:  CMPL RHS? BKTSIZE > 1146 ; 
: 1F 001 BLSSU 138 ; | : 
01 3} 1 128: BRw 32$ ; ; 
06 AS 95 00107 138: TSTB 6 (BKT_ADDR) > 1148 ; 
1 IF 10A BNEQ ss ; | 3 
03 €0 0010C BBS #3, 6(IRAB), 14% : 1150, ; 
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RM3SPLUDR 14. Sep-1984 02:03:2 AX-11 Bliss-32 v4. P 40 
vou=000 RMSSPLIT_UDR 14- tat 1 9g: 3F:2 : AS SREIRMESPCUDR OG ose 45) 
3 9 08 63 MOVL RO, STAT : | 
a 66 BLBC STATUS $ : 
08 AE 6 D1 0036 CMPL REC ADDR, POS_INSERT + 1534 
11 1€ 0036p BGEGU : 
5¢ ps 0 of CLRL = AP : 1537 
50 0084 CA 3C 00371 MOVZ2WL 180(IFAB) RO : 1538. 
60 8940 3 0376 PUSHAB BOC TRABSERG : 
00006 30 0 7A SBW RMSRE CORD KEY : 
SE 04 CO 0037D ADDL2 #4, SP : 
04 AE 6 D1 00380 458: CMPL = REC_ADDR, E0B + 1541 
OF be Bosbe Fe SFr eus eases! 
OF f 0 58 BGE 49$ : 
50 48 Ad 3C O38, 46$ MOVZWL 72(IRAB), RO : 1551. 
4C Ad 50 BO 00 BE OV RO, 76(IRAB) : | 
GA A9 50 0 BR 47$: MOVW RO, 74(I RAB) § 
0188 31 00396 48$:  BRW 72$ > 1552 | 
00006 30 00399 49$:  BSBW RMSGETNEXT _REC + 1558) 
AF 11 0039C BRB 44$ + 1530. 
OC AE D4 0039E 50$ CLRL RVS + 1565 
52 56 DO O03A1 MOVL REC ~ADDR, LHS + 1566 
OC AE D6 O03A4 518 INCL  NUMTRRVS : 1570 
00006 30 003A7 BSBW §RMSGETNEXT_REC + 1571 
04 AE 56 D1 OO3AA CMPL REC ADDR, EO + 1573 
19 13 OO3AE BEQL 52$7 : 
7E D4 00380 CLRL + P) : 1578) 
7E 0046 ¢9 9A 003B2 MOVZBL CIRAB) , -(SP) : | 
50 0084 CA 3¢ 00387 MOVZWL 1B0CIFAB RO ; | 
0 8940 3F 003BC PUSHAW @96(IRA 8) tno) : | 
00006 30 003c0 BSBW RMSCOMPARE REC ; 
SE OC CO 003C3 ADDL2 #12, : | 
DB 50 £9 003C6 BLBC ~— RO F 
10 AE 56 DO 003C9 52$:  MOVL = REC_ADDR, RHS > 1581. 
52 08 AE D1 003CD CMPL = POSINSERT, LHS : 1588 
05 1B 003D1 BLEQU ; 
44 Ad 80 8F 88 003D3 BISB2 #128, 68(IRAB) : 1590 
20 AE 10 ae 52 €3 00308 53$:  SUBL LHS, RHS, RRV : 1592 
20 AE 2c «(AE «OCO 0030E ADDL2 REC_SIZE, RRV : 1593 
1c AE 20 AE D1 OO3E CMPL RV? BKTSIZE : 1595 
59 1€ 00368 BGEQU : 
07 06 a9 03 £0 OO3EA BBS , 6CIRAB), 54$ > 1601 
FE 8F Oc AE 91 OO3EF CMPB NOM RRVS, #254 : 1603 | 
4D 1A 003F4 BGTR 58S" : 
4A AY 52 22 A o03r6 54$: SUBW BKT_ADDR, LHS, 74(IRAB) : 1633 | 
4C A 10 AE 5 A 6 FB SUBW3 BKTTADDR. RHS. 76(IRAB) : 1623 | 
04 AE 10 AE 01 00401 CMPL = RHS7>~-EOB > 1625. 
1¢ if 00406 BNEQ  56$ ; | 
44 Ad 02 01 o1 F 00408 INSV #1 #2, 68(1RAB) : 1628 
28 «AE 32 D1 004 : CMPL ~sLLHSS, *hOce PS : 1630 | 
B2 12 0041 BNEQ  48$ ; 
4C AD 4E Ad BO 00414 MOVW #§78(IRAB), 76(IRAB) > 1633 
4A AD 48 Ag 80 0419 MOVW 72(IRAB). 74(1RAB) : 1634, 
44 AY 10 Date 55$:  BISB2 #16, 68({RAB) > 1635. 
6F 11 004 BRB ges > 1630 | 
OE 4A Ad B1 00424 56S: CMPW 4(IRAB), #14 > 1642 | 
09 if 0428 NEQ 57$ : 
44 Ad 40 8F 88 0042A BISB2 #64, 68(IRAB) t 1644 


J 2 | 
RM3SPLUDR 16-Sep-1984 3: AX-11 Bliss-32 V4.0-7 Pa 41. 
vOe=000 RMSSPLIT_UDR {t-$ep- 138 ¢: 8F: 8 RMS. SRCIRM3SPLUDR. B35; wit (5) 
08 AE 10 AE 01 00462F 578: CMPL RHS, POS_INSERT : 1650. ; 
5D 1F 00434 BLSSU 2 : | : 
48 a9 4A Ay 8 4 6 CHP 6(IRAB), 72(IRAB) > 1651. ; 
44 Ad 8 8a 0430 BISB2 #8, 68(IRAB) > 1653. ; 
11 00441 BRB + 1656. ; 
44 AD 95 00443 58%:  TSTB ; (IRAB) + 1669. ; 
03 19 0446 BLSS 9$ : ; 
0080 31 0044 BRW 65$ : ; 
08 AE 10 AE D1 00448 59$:  CMPL —- RHS, POS_INSERT ; 1671) F 
79 1B 004 BLEGU 65$ : | ; 
5 08 AE C 04 SUBL3 POS_INSERT, LHS, RO + 1675. ; 
5 AE CO 004 ADDL2 RRVT RO : ; 
1c AE 3 Di 00458 CMPL RO BKTSIZE : | ; 
4 1 045F BGEGU 63$ : | : 
44 Ad 10 88 00461 BISB2 #16, 68(IRAB) + 1693 ; 
4A AD 48 AS BO 00465 MOVW 72 CIRAB) . 74(1RAB) + 1694 F 
04 AE 10 AE D1 0046A CMPL = RHS, EOB + 1696 : 
0 if O046F BNEG : | ; 
01 01 FO 00471 INSV #1 , #2, 68CIRAB) + 1698 : 
0 11 00477 BRB : | : 
10. AE 55 A3 00479 60$:  SUBW3  BKT_ADDR, RHS, 76(IRAB) : 1700 ; 
56 52 DO 0047F 618: MOVL LHS> REC_ADDR : 1702 | : 
5¢ D4 00482 CLRL = AP. : 170 F 
50 00B4 CA 3C 00484 MOVZWL 180(1 > 1704 | ; 
60 8940 9F 00489 PUSHAB 396 CRAB) EROS ; ; 
00006 30 0048) BSBW RMSRECORD_KEY ; : 
5E 04 CO 90499 ADDL2 #4, SP F ; 
6C 11 0049 62s: BRB 7 ; 1705 ; 
08 AE 10 AE C3 00495 63$: SUBL3. RHS, POS_INSERT, RO + 1712 ; 
50 20 AE CO 00498 ADDL2 RV, R : | : 
1c AE 50 D1 0049F CMPL RO, BKTSIZE ; | ; 
26 3 004A3 BGEGU 65$ ; : 
52 A3 004A5 SUBW3 = BKT ADDR, Det iaks 74 (1RAB) : 1733) : 
4C Ad 48 Ad BO OO4AA MOVW 72(TRAB + 1734 | : 
OE 4A AD Bi OO4GAF CMPW Fe UIRAB ; 1736 | ; 
05 M2 00483 BNEQ  64$ : ; 
44 Ad 40 8F 88 00485 BISB2 #64, 68(IRAB) : 1738 ; 
44 Ad 08 88 004BA 64$:  BISB2 #8, 68(IRAB) : 1740 : 
04 AE 10 AE 01 0048 CMPL  RHS, EOB : 1742 ; 
4C 1 004C BLSSU  69$ : ; 
44 AD 20 88 004C BISB2 #32, 68 (1RAB) : 1749 : 
6 11 0049 BRB > 1751 ; 
5 48 Ad 3¢ O4¢B 65$:  MOVZWL 7 trraB) RO > 1768 | 3 
4c OA 50 BO O04CF MOVW RO, 76(IRAB) F : 
4A AD 50 80 0403 MOVW iy 4(IR ; : 
44 Ad O40 TSTB (IRAB) : 1770 : 
18 18 OO4DA GEQ 6$ ; : 
44 AD 10 88 004DC¢ BISB2 #16, 68(IRAB) : 1773 : 
56 32 DO 004E V LHS, REC_ADDR : 1774 : 
C ps4 04E AP : 1225 | : 
50 00B4 CA 3C OO4E MOVZ2WL 180(IFAB), RO + 1776 : 
60 8940 3 Q4EA PUSHAB @96(1RAB) (RO) ; : 
00006 0 AEE SBW RMSRECORD “KEY : : 
SE 04 ¢ O4F ADDL2 ; ; 
04 AE 08 AE D1 004F4 66%:  CMPL Pog. INSERT, EOB : 1779 : 
08 12 004F9 BNEQ : | : 
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4 703: 
38e 93:07:28 
gnev #1, #1, #2, 68¢(IRAB) 
CMPL P Sanath: RHS 
BGEQU 7 
CMPL RHS, E0B 
BGEQ 70$ 
BISB #6, 68(1RAB) 
BRB 1§ 


BISB 41% 68(iR 


ree 74 ADDR, mK, 78(IRAB) 


CMP 4 (TRAB) , 
BNEQ 

BBS 68(1RAB) 
BISB Br 

ADDL2 #4 

POPR #OM<R2, R3> 
RSB 


AX=11 Bliss-32 V4.0-74 
RMS .SRCJIRMSSPLUDR.B32; 
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RMSSPLIT_UDR_3 14-Sep-19 RMS .SRCIRMSSPLUDR .B32; 


ZSBTTL "RMSSPLIT_ UDR 3' 
GLOBAL ROUTINE RMS$SPCIT_UDR_3(RECSZ) : RLSRABREG_4567 NOVALUE = 


arse DR 18500-1984 96:03:28 oe Bliss-32 V4.0-74 Page CH 
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FUNCTIONAL DESCRIPTION: 
his routine calculates bucket splits for prologue 3 version files. 


CALLING SEQUENCE: 
BSBW RMSSPLIT_UDR_3(RECSZ) 


INPUT PARAMETERS: 
RECSZ = packed record size including overhead 


IMPLICIT INPUTS: 

BDB pointer 

BUFFER pointer 

REC_ADDR == point of insert 

ton ro be passed to RMSMOVE_KEY 

in TRAB == CURBDB, associated with bdb and bkt_addr 
POS_INS corresponding to REC_ADDR 
key buffer address 

in IFAB == hey buffer size 

BKTSB_NXTRECID = 0 in original bucket signals that this is 

a split due to a lack of id's in the bucket 


OUTPUT PARAMETERS: 
none 


AAAS 
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IMPLICIT OUTPUTS: 
in JRAB -- 


n 
if 2 bkt soit oo 
IRB$W_SPLIT, offset to split point 
IRB$V_REC_W_LO -- set if split point is pos_insert and 
record goes with lo set : 
key buffer 2 - new high key for original bucket, i.e. key to be 
inserted at the index levei 
key buffer 4 = old high key 
number of new buckets = 1 
if original bucket was all rrv's, set IRBSV_EMPTY BKT flag 
~— bee's new bucket is a continuation bkt., set IRBSV_CONT_BKT flag 
sp oe 
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80 same as ey with these changes: 
80 0 key buffer 3 - implicitly it contains second key to be inserted 
one 1 at the index level 
80 o¢ IRB$W_SPLIT_1, offset to second split point 
804 6 number of new buckets = 
805 64 . if cigne bucket is a continuation bkt, set IRBS$V_CONT_R flag 
06 56> if 4 bkt split -- 
7 6 same as above with these changes: | : 
808 867 IRBSW_SPLIT_2, offset to_third split point 
809 868 number of new buckets = 3 
810 362 
811 870 ROUTINE VALUE: 
aig 14 rmssuc 
81 72 
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RM3SPLUDR 
v04-000 RMS ..SRCIRMSSPLUDR.B32; 


RMSSPLIT_UDR_3 


: 1814 1873 1! SIDE EFFECTS: | : 
; 1815 1874 1! AP is clobbered | ‘ 
; 1318 1875 1! | : 
3; 181 1 8 1 l= : 
; 1818 1877 1 
Be Neen | | 
: 1821 1880 EXTERNAL REGISTER ; 
; 18 ¢ 1881 COMMON_RAB_STR, | $ 
; 18 13e6 REC_ADDR-STR, $ 
> 1824 188 R_IDX_DFN_STR, $ 
; 13s? ieee COMMON _I0-STR; : 
: 1859 1886 LOCAL ; 
: 1859 1888 REEDTRRVT 
: 1830 1889 2 POS_INSERT, ; 
>; 1831 1890 EOB, F 
3 1836 1891 RRV, : 
: 1834 1898 3 CHS: | 
; 1835 1894 2 LAST __: REF BBLOCK, | : 
; 1836 1895 § LAST_DIFF, : 
: 1837 1896 BKTSTZE, | ; 
>; 1838 1897 DIFFERENCE; 3 
: 1820 1899 LITERAL | 
3: 1841 1900 2 RRV_SIZE = 9; 3 
3: 1842 1901 $ : 
3: 1843 1308 LABEL 3 
3 1844 1903 2 DO_IT, $ 
>; 1845 1904 2 HACF , : 
> 1846 1905 2 NEXT: | : 
3 1847 1906 2 : 
3; 1848 1907 2 DO_IT : 3 
3; 1849 1908 § 3 
i cin be : 
: 1852 1911 3 ! define a block so that we can have some common checks before returning F 
: 1853 bat 3 ' successfully 3 
3: 1854 19135 3 ! 3 
3; 1855 1914 ; HALF : : 
: 1856 1915 : 
3; 1857 a 4 BEGIN 3 
We Hd isha! 
; 1860 1919 4 ! Define a block so that we can simulate a go-to (naughty, naughty), : 
3; 1861 1920 4 ! if we have decided that we are positioning at the end of the bucket 3 
3 1206 1921 4 ' & we're in somewhat of an ascending order, where the last record $ 
; 186 19 ¢ 4 ' inserted is a duplicate of the new record, skip over the 50-50 code 3 
5 He 3 ? ; } and go to the code to take duplicates into account. : 
: 1866 1958 6 ! scan 1 == Calculate size of existing rrv’s and total number of rrv's : 
; 1867 19 $ 4 ! needed to move the whole bucket out ( worst case). As a side effect, : 
; 1868 19 4 ! adjust eob pointer to point to the rrv's instead of freespace. Assume 3 
; 1368 1358 ? not empty bucket until showed otherwise. : 


N 2 
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; 1871 1930 4 3 
: 13r¢ 1931 4 IRABCIRBSV_EMPTY_BKT) = 0; 5 
: 187 19 ¢ 4 3 
; 1874 19 4 ' new rec is tried Ist with hi set, then with lo set . 
>; 1875 1934 4 ! : 
; 1378 1935 4 past Res REC LO) = 0; ; 
; + 144 3 § ? ne TRBSV_NEW_BRTS = 1; ! assume 2-bkt split until showed otherwise : 
H = 0; : 
; 1879 1938 4 POS_INSERT = .REC_ADDR; : 
; 1880 1939 4 REC_ADDR = .BKT_ADDR + BKT$C_OVERHDSZ; : 
; 1881 1940 4 EOB = .BKT_ADDR + -BKT_ADDRCBKT$W_FREESPACE); | ; 
: 1856 1941 4 LAST = 0; | ; 
: 188 1306 4 3 
> 1884 1943 4 DO F 
: 1885 1944 § BEGIN | : 
>; 1886 1945 5 3 
: 1887 1946 5 BUILTIN : 
; 1888 1947 5§ AP; | F 
; 1889 1948 5 | : 
3; 1896 1949 5 IF .REC_ADDRCIRC$V_RRVI : 
: 1891 1950 5 s 
3; 189 1951 5 EXITLOOP; ; 
3; 189 1326 5 3 
3; 1894 1953 5 AP = 3; : 
3 1895 1954 5 3 
: 1896 1955 5 IF .BDBCBDB$L_VBN] EQLU RMSRECORD_VBN() 3 
: 1897 1956 5 3 
3; 1898 1957 5 NEED_RRV = .NEED_RRV + 1; : 
; 1899 1958 5 F 
: 1900 1959 5 LAST = .REC_ADDR; 3 
3 1901 1960 5 : F 
; 1902 1961 5 : If the front compression of the current_record is zero, save its : 
: 1903 1962 5 ' address as the last noncompressed key. This may prevent a bucket : 
3: 1904 1963 5 ' scan when it comes time to extract and re-expand the key of the : 
3; 1905 1964 5 ' Last record in the bucket. F 
: 1906 1965 5 ! 3 
: 1907 1966 5 IF .IDX_DFNCIDX$V_KEY_COMPR) 3 
3; 1908 1967 5 THEN : 
: 1909 1968 6 BEGIN | 3 
; 1910 1969 6 é 
; +48 pA ? IF .(.REC_ADDR + RMSREC_OVHD() + 1)<0,8> EQLU 0 | ; 
: 1913 1972 6 IRABCIRBSL_LST_NCMP] = .REC_ADDR; : 
3 1914 1973 § D; 3 
3 1915 1974 5§ F 
3; 1916 1975 5 RMSGETNEXT_REC() : 
3 1917 1976 5 N } ; 
: Hh ay 4 44 2 UNTIL .REC_ADDR GEQU .EOB; ! end of first scan ; 
; 1920 1979 4 ! Now that we have the address of the last record in the bucket, store : 
: 136) 1980 2 the key of that record in key buffer 4, to be used by index updating. : 
3 1953 1986 4 IF .LAST NEQU 0 3 
: 1368 1983 4 THEN 3 
3; 1925 1984 5 BEGIN 3 
3; 1926 13e2 5 3 
: 1927 1986 5 LOCAL 3 
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6-Se 4 02:03:2 AX-11 Bliss-32 v4.0-742 P 46. 
4-Se 4 gore j m 1 me a) 


-7 
1 RMS .SRCJRMSSPLUDR .B32; 


8 1987 5 TMP_ADDR; | 
0 BUILTIN 
1 AP; 

TMP_ADDR = .REC_ADDR; 

REC_ADDR = LAST; 

AP = 0; verhead and compressed form 


= ' © 
RMSRECORD_KEY (KEYBUF _ADDR(4)); 
REC_ADDR =. TMP_ADDR? 


! Set SPLIT 2 and SPLIT_1 to be EOB, so if there are less than 3 new 
buckets BRT_SPL can uSe the value without having to recalculate it. 
IRABCIRB$W_SPLIT_1] = IRABCIRBS$W_SPLIT_2] = .REC_ADDR - .BKT_ADDR; 

Set up the bucket size 

BKTSIZE = .IDX_DFNCIDX$B_DATBKTSZ]*512 = BKTSC_OVERHDSZ - BKTSC_DATBKTOVH; 
If this is an update, may have to count in an rrv for the existing record 


IF .TRABLIRBSV_UPDATE) 
THEN 
BEGIN | 
LF ,B0BCBDBSL_VBNJ EQLU .IRABCIRB$L_PUTUP_VaN] 


NEED_RRV = .NEED_RRV + 1; 
END; 
-EOB - .REC_ADDR; ! size of existing rrv's 
-REC_ADDR; ! adjust eob 


RRV 
EOB 


special case it, if the bucket was all rrv's 


SOONA NEW HO ODNAUN EWN OO ODNOUS WN HOW ONAULS WI 


i 

| 
IF REC_ADDR EQLU .BKT_ADDR + BKT$C_OVERHDSZ 
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6 0 

: 3 BEGIN 

71 0 ! Bkt is all rrv's yet the record wouldn't fit so we need to 
ar 0 !' allocate another Dkt ( 2 bkt split). Yet special case it so as not 
97 0 ! to make another idx entry, only to update the existing one by 
ore 3 setting empty bucket flag. 
976 0 [RABLIRB$W_SPLIT] = .REC_ADDR - .BKT_ADDR; 
ore 3 LEAVE DO_IT 

oP 5 END; ! end { of special case an all-rrv bucket } 
981 0. '¢ 
oBs 0. ! * BLOCK 1 * ; : 

98 04 ! Special Case -- If we can detect a possible ascending order to these | 
984 04 ! records it probably will be better to do a straight point of insert split 


= 


3 
RMSSPLUDR 18-Sep-1984 02:03:28 YAX=11_BLiss-32 v4.0-762 
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; 1985 044 4 : which would put the new record in a bucket all by itself. | 

; 1986 045 4 ! Do this kind of split if and only if all the following conditions are met: 
: 1987 046 4 : 1) the record is being inserted at the end of bucket 

; 1988 047 4 ' 2) the last record physically in the bkt is the last record to have 

3; 1989 Secs 4 ! been inserted 

$ ba eh : 3) the Last record and the new record do not have duplicate key values 
: 1388 spat 4 ! Note that if tney are duplicates, we can still make an optimization by 

3 ad, sees ? skipping the 50-50 split code. 

; 1995 2054 4 ' Note that LAST cannot be zero, since if it were we would have an all 

: 1996 Spee 4 ! rrv bkt. 

We BEEF 

; 1999 058 4 IF .POS_INSERT EQLU .REC_ADDR 

; 2001 2060 5 (CC. LASTCIRCS$W_ID] + 1) AND &X'FFFF') EQLU .BKT_ADDRCBKT$W_NXTRECID]) 
3; 2002 2061 4 HEN 

: S004 te wie 

3 si4i¢4 see 2 REC_ADDR = .LAST; 

:; 2007 2066 5 ! Check for duplicates: 

: 2008 2067 5 : If the key is compressed, and the new key has a length of zero, then 
; 2009 2068 5 : we know it is a duplicate of the previous one. 

: 2010 2069 5 ! If the key is not compressed, then compare the new key (key buffer 3) 
3 soit 2070 5 ! with the previous key. 

a. Bn yee 

: 2014 $078 8 IF .IDX_DFNCIDX$V_KEY_COMPRI 

3; 2015 2074 5 THEN 

Be Be 8 — 

; 2018 2077 6 IF .(. IRABCIRBSL_RECBUF])<0,8> NEQU 0 

; 2019 2078 6 THEN 

Be Be ome 

; 2022 2081 7 ! Since we have detected a possible ascending order in the | 

; 2023 2082 7 ! input, let's try to optimize a Little and split at the point 
3; 2024 2083 7 ! of insert. Send the record by itself into the new bucket 

; 2025 2084 7 ! and store the new high key of the old bucket in keybuf2 

; soso sone 4 the high key of the new bucket in keybuf4, and split point. 
3 20 2 087 7 RMSMOVE (. IDX_DFNCIDX$B_KEYSZ], 

> 2029 088 7 KEYBOF_ADDR(4) 

; 2030 2089 7 KEYBUF ~ADDR(2)5; 

; 2031 2090 7 RMSMOVE (. I1DX_DFNCIDX$B_KEYSZ), 

; so3e 2091 7 KEYBOF _ADDR(3) 

3 203 092 7 KEYBUF ~ADDR(4)5; 

3 2034 093 7 IRABCIRB$W_SPLIT] = .IRABCIRBSW_POS_INSJ; 

3; 2035 094 7 LEAVE D 3 

3: 2036 095 7 

3: 2037 096 6 LSE 

; $43 4 6 LEAVE HALF 

3 2040 099 g ELSE 

3 2041 100 6 BEGIN 


eee aa — netemenes 
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oa 


RHS = .£0B - .REC_ADDR; 
IF .REC_ADDR LEQU .POS_INSERT 
NOT -IRABCIRBSV,REC_W,L0} 
RHS = .RHS + .RECSZ; 


: 204 101 

; 204 1 ¢ 6 LOCAL 

> 2044 103 6 REC_OVHD; 

; 2045 104 6 

; 20466 105 6 BUILTIN 

: 2047 196 6 AP; 

; 2048 107 6 

3 2049 108 6 REC_OVHD = RMSREC_OVHD(0); 

5 2051 193 ? AP = 3; ! Contiguous compare of keys 
: 205 111 6 IF RMSCOMPARE_KEY ( .REC_ADDR + ,REC_OVHD, 

; 038 a1i2 6 - KEYBOF_ADDR(3), ~ 

3; 2054 115 6 - IDX_DFNCIDX$B_KEYSZ] ) 

; 2055 site 6 

; 2056 115 7 BEGIN 

: spat 2116 7 RMSMOVE(. IDX _DFNCIDX$B_KEYSZ], 

; 2058 2117 7 KEYBOF _ADDR(4) 

; 2059 3118 7 KEYBUF ~ADDR(2)5; 

; 2060 119 7 RMSMOVE (.1DX_DFNCIDX$B_KEYSZJ, 

; 2061 2120 7 KEYBOF _ADDR(3) 

; 2062 2121 7 KEYBUF ~ADDR(4)5; 

; 206 2122 7 IRABLIRB$W_SPLIT] = .IRABCIRB$W_POS_INSJ; 
3 2064 2123 7 LEAVE DO_IT; 

3; 2065 2124 7 

3 2066 2125 6 LSE 

3; 2067 2126 6 LEAVE HALF 

; 2068 2127 6 D 

: 2069 2128 6 

; 2070 2129 6 ! * end of BLOCK 1 * 

; 2071 2130 6 ! 

; 2072 2131 4 END; 

; 2073 $136 4 

3; 2074 2133 4 REC_ADDR = .BKT_ADDR + BKTS$C_OVERHDSZ; 

: 2075 2134 4 IRABCIRBSL_LST_RNCMPJ = .REC_ADDR; 

; 2076 2135 & LAST_DIFF = UX*7FFFFFFF'; 

3; 2077 2136 4 LAST = 0; 

; 2078 2137 4 SAVE_REC_W_LO = 0; 

3; 2079 2138 4 

; 2080 2139 4 ! * BLOCK 2 * 

; 2081 2140 4 ' Start from the postening of the bucket and scan rightward. First find the 
: 2082 2141 4 ! Ist place the rhs will fit in 1 bkt then, as long as the Lhs will fit in 
: Soar $16 4 ' a bkt, try to find an optimal point. If there is no point where the rhs 
3; 2084 21435 4 ' and Lhs will both fit, we can't do a 2-bkt split and this case will fall 
3 $083 site 4 ' out. 

; 2086 145 4 : 

3; 2087 2146 4&4 

; 2088 2147 4&4 WHILE 1 

3; 2089 148 4 DO 

; 2090 149 5 BEGIN 

; 150 5 

3 $12) 5 

3 13 5 

3 153 5 

: 154 5 

; 155 5 

$ 138 5 

3 ior) 6S 
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If the primary key is compressed, then the righthand side total must 


include the count of characters currently front compressed off the 
key of the record which will be first in the right bucket. 


fi 9p SOR POM LORY _AET_COMPRD 

! If the point of insertion of the new (updated) record is the same 
as that of the current split point, and the new (updated) record 
is to go in the new (right) bucket, the the number of front 


Ce ed 


Ss3s2sses3 


! 
: 
! compressed characters to be added to the righthand total comes 
! from the cyrrentty compressed ney of the new (updated) record. 
! This key will be found in keybuffer 5, if the current operation 

' is an SUPDATE, or in a record buffer, if the current operation is 

a $PUT. 

I 


| 
F (.REC_ADDR EQLA .POS_INSERT) | 
NOT .IRABCIRB$V_REC_W_LOJ 


THEN 
If; TRABLIRBSV_UPDATE | 
| 

eiseRhS = -RHS * . (KEYBUF_ADDR(5) + 1)<0,8> 


RHS = .RHS + .(. TRABCIRBSL_RECBUFJ + 1)<0,8> 


If the current apts point is not at the point of insertion of 
the new (updated) record, or if it is but the new (updated) 
record is to go in the old (left) bucket, then the first record 
in the new (right) bucket will be the current record, and the 
number of characters currently front compressed off its key is 
added to the righthand side total. 
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SE 
4 gREC_ADOR LSSA .EOB 
: RHS = .RHS + .(.REC_ADDR + RMSREC_OVHD(O) + 1)<0,8>; 
36 ! * BLOCK 3 * 
7 ! The right hand side fits if there is enough room and there are id's 
! available. Id's are always available in the new bucket in the update 
39 ! situation, or if we're leaving at least 1 record behind in the old 
40 ' bucket. note that nxtrecid is always zeroed if this is a split due to 
41 ! lack of id's. 
ri} : 
4 
re} IF a LSSU .BKTSIZE 
| 
48 (.BKT_ADDR(BKT$W_NXTRECID] NEQ 0 
re pI RABCIRGSV_UPDATE) 
29 sREC ADDR NEQA (.BKT_ADDR + BKTSC_OVERHDSZ) 
2 - IRABCIRB$V_REC_W_LO)) 
5 THEN 
54 BEGIN 
55 LHS = .REC_ADDR - (.BKT_ADDR + BKT$C_OVERHDSZ); 


F 3 
RM3SPLUDR 16-Sep-1984 02:03:2 AX-11 Bliss-32 V4.0-742 p 
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wALE -REC_ADDR NEQU .TMP 


3 126 15 6 
: 2157 16 é IF .REC_ADDR GEQU .POS_INSERT 

; 2158 17 6 ‘ND 
; 2159 18 6 . IRABCIRBS$V_REC_W_LOJ 
; 2160 19 6 

; 2161 0 6 LHS = .LHS + .RECSZ; 

: 196 1 6 
; 216 ¢ 6 ' * BLOCK 4 * 
> 2164 2223 6 ! will ths fit. ? Lhs doesn't fit if there is no space in the 

: 2165 2224 6 : bucket, or if there won't be any id's available in the bucket. 
3; 2166 $552 6 ! if not & if there is no previous point at which it fit, goto 35-bkt 

: $1ef $8 6 ! split code if there is a previous place where we could have had a 

: 2168 2e/ 6 ! 2=-bkt split, use it 

: 5192 228 6 : 
: 2170 $§0 6 
; e171 230 : IF .LHS + .RRV + (RRV_SIZE * .NEED_RRV) GTRU .BKTSIZE 

; 5178 $536 6 ! Id's will be available in the original bucket if we aren't 

> 2174 2235 6 ! out of id's to begin with, if this is an update, | 
; 2175 2234 6 ! or if the new record is going in the new bucket 

: 5176 2235 6 i | 
3: 2177 2236 6 OR 
: 2178 2037 7 (,BKT_ADDRCBKT$W_NXTRECID] EQL 0 
3: 2179 2238 7 AN 

: 5180 5539 7 NOT .IRABLIRBSV_UPDATEJ | 
; si8) 2240 7 N 

; \8¢ 2241 7 - IRABCIRB$V_REC_W_LOJ) 

; 218 $seg 6 THEN 

> 2184 ss¢ 7 BEGIN 

; 2185 244 7 

; 2186 Sst? 7 IF .LAST EQL 0 

: 2187 246 7 THEN 
; 2188 2247 7 EXITLOOP; 

> 2189 2248 7 
; 2190 2249 7 REC_ADDR = .LAST; | 
3; 2191 2250 7 

: 9192 g251 7 IF NOT .SAVE_REC_W_LO | 
3 $137 $2¢ 7 THEN | 
: 519% 2258 7 IRABLIRBSV_REC_W_LO} = 0; 

: 2195 2254 7 

3 2196 2255 7? ! 2 bkt split is possible rec_addr points to the most : | 
3 2197 256 7 ! optimal place since we had fo back up, reset last to point 
3; 2198 57 7 ' to the record immediately before the split point | 
3; 2199 25 7 : 
3 soy 5 BEGIN 

: 2201 $60 

3 $o¢ 61 LOCAL | 
: 220 $6 TMP; 
: 2204 6 
: 2205 64 8 TMP = .REC_ADDR; 
; $508 65 REC_ADDR = .BKT_ADDR + BKTSC_OVERHDSZ; 
: 220 66 LAST = .REC_ADDR; 

; 2208 6 

; 2209 68 

; +4 

3 0 

: 71 9 


2 
Nm-—oO 


BEGIN 
LAST = .REC_ADDR; 
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7 
i If the front compression of the current record is zero, 
save its address as the last noncompressed key. This may 
prevent a bucket scan when it comes time to extract and 
re-expand the key of the Last record in the bucket 
immediately before the split point. 


F jl DX=DFNCIDXSV_KEY_COMPRI 

BEGIN 
IF _<(RECLADDR + RMSREC_OVHD() + 1)<0,8> EQLU 0 
yp, LRABCIRBSL_LST_NCHP] = .REC_ADDR; 


SS 


os 
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RMSGETNEXT_REC(); 
END; 


END; 
RMSMOVE_KEY(.LAST, .REC_ADDR); 
IRABLIRB$W_SPLIT] = .REC_ADDR = .BKT_ADDR; 


! treat another exception case of the new record going off into 
a cont. bkt all by itself 
1 og, MARE IRDON SPL ETD EQLU .IRABCIRB$W_POS_INSJ 


IF IRABCIRBSW_SPLIT] EQLU .1RABLIRBSW_SPLIT_1] 


~ 
AMEN $9 OONAUE WN 0 OD NOAM EWN OO ODNOUS 


IF NOT .IRABCIRBSV_REC_W_LO) 
THEN 
BEGIN 
BUILTIN 
AP; 


SOOSCOSGOSOSSC COO DOO OC OOOWDWOWWWOWWMWMWOo NN 


AP = 3; 
! If the new last key in the bucket equals the key 
' to be inserted in the new bucket, then we have a 
continuation bucket. | 
IF NOT RMSCOMPARE_KEY ( KEYBUF _ADDR(2), 
KEYBUF ADDR(3), | 
— - 1DX_DFNCIDX$B_KEYSZ] ) 
IRABCIRBSV_CONT_BKT] = 1; 

END; 

LEAVE DO_IT 

END; ' end of * BLOCK 4 * (LHS does not fit) 
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7 
RMSSPLIT_UDR_3 RMS .SRCIRMSSPLUDR .B32; 


6 
ths fits also, calculate the magic ratio 


DIFFERENCE = (.LHS * .BKTSIZE) - 
(,RHS * (.BKTSIZE = (RRV_SIZE * .NEED_RRV) = .RRV)); 


; * BLOCK 5 * 


if -DIFFERENCE GEQ 0 
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H 9 

3 ? 6 

; 6 

; ¢ 6 

; 6 

; 4 6 

; 5 6 

3 6 6 

3 7 6 

3 8 6 

: 80 9 8 HEN 
3 : re f BEGIN 
4 | 
3; 228 +g 7 ! found the Ist point at which the magic ratio is positive 

3: 2286 43 7 ' was the last point more optimal, if so use it 

; 2285 44 7 : 

; 2286 45 7 
3; 2287 rt 7 IF ABS(.DIFFERENCE) GTRU ABS(.LAST_DIFF) 
3 see th 7 

3; 2289 48 8 BEGIN 

3 $30 349 8 
3; 2291 350 8 IF .REC_ADDR EQLU .LAST 

é $36 351 8 
: 229 326 8 IRABCIRB$V_REC_W_LOJ = 0 
3 2294 353 8 SE 
; 2295 354 9 BEGIN 

3; 2296 2355 9 REC_ADDR = .LAST; 

: 2297 356 9 

; 2298 357 9 IF .REC_ADDR LSSU .POS_INSERT 

3; 2299 358 9 THEN 

; 2500 $825 g IRABCIRBSV_REC_W_LOJ = 0; 

: 2301 360 8 ND; 

3 $08 361 8 

; 230 $06 ° LAST = 0; 

3 2504 36 END; 

; 2305 2364 7 

; 2306 2365 7 ! 2=bkt split is possible rec_addr points to the most 
: 2307 366 7 ' optimal place 

; 2308 367 7 : 

3 $10 368 7 

: 2310 369 7 IF .LAST EQL 0 $ 

3 2311 370 7 ! just backed up rec_addr, need to recalc last 
3 31g 371 8 BEGIN 

: $31 378 3 

: 14 73° «8 LOCAL 

3 2315 374 8 TMP; 

3 16 375 8 

3; 251 378 ; TMP = .REC_ADDR; 

3 18 7 REC_ADDR = .BKT_ADDR + BKTSC_OVERHDSZ; 

3 320 $38 LAST = .REC_ADDR; 

; $f 380 WHILE .REC_ADDR NEQU .TMP 

3 $$ $B DO 

3 $ +f 4 BEGIN 

: 4 9 LAST = .REC_ADDR; 

; $52 84 9 F 

3; 2326 85 9 ' If the front compression of the current record is 


v e 3 oe . . —_ = - 
it 1E-Sep-1964 09:08:28 YANN! | f56-52 4.027 


zero, save its address as the last noncompressed key. 
This may prevent a bucket scan when it comes time to 
extract and re-expand the key of the last record in 
the bucket immediately before the split point. 


et me mmm 


IF .(.REC_ADDR + RMSREC_OVHD() + 1)<0,8> EQLU 0 
enp,RABCIRBSL.LST_NCMP] = .REC_ADDR; 


WA 


SSSSSFSSSSe 


ns 


H 7] 

; 7 9 

; 8 9 

; 9 9 

3 1 09 

; ¢ 19 

; § 9 

; 4 0 

; 5 4 10 

; 6 5 10 

ee +18 

ae ORR 

; 2341 400 9 RMSGETNEXT_REC(); 

; tak: 401 8 END; 

; 234 re 8 

ges RAE os 

: 2346 tos 7 RMSMOVE_KEY(.LAST, .REC_ADDR); 

; Seer sine 4 IRABCIRB$W_SPLIT] = .REC_ADDR - .BKT_ADDR; 

: $309 5408 7 ! treat another exception case of the new record going off into 
; 2350 $093 7 ' a cont. bkt all by itself 

BBO : 

; 2358 i u IF ,JRABCIRBSWSPLIT] EQLU .1RABLIRBSW_POS_INS] 

: 2355 414 7 

; $336 $612 ? IF, JRABLIRBSW_SPLITJ EQLU .IRABLIRBSW_SPLIT_1) 
: 2358 2417 7 

; 538 2418 7 IF NOT .IRABCIRBS$V_REC_W_LOJ 

; 3360 e419 7 THEN 

; se) sist § BEGIN 

Oe me 

; 2365 154 a : 

3 RE Ao 

: 2368 259 a IF NOT RMSCOMPARE_KEY ( KEYBUF ADDR(2), 
; 2369 428 8 KEYBUF _ADDR(3), 

; in 4¢9 . IDX_DFNCIDX$B_KEYSZ) ) 
3 71 430 HEN 

3 % ? 1 IRABLIRB$V_CONT_BKT] = 1; 

: 2374 4 END; 

we BRT 

; 376 435 u LEAVE DO_IT 

; 378 <3 6 END; ! end of * BLOCK 5 * 

: 340 139 6 ! the magic ratio isn't positive yet, so save all the context and 
; $n re ° move on to the next record 

; 338 442 6 LAST_DIFF = DIFFERENCE; 
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¢ tt? 6 LAST = .REC_ADDR; 
445 IF .]RABCIRBSV_REC_W_LOJ 
44 THEN 
88 44 SAVE _REC_W_LO = 1; 
89 44 
ay te END; ! end of * BLOCK 3 * 
4 45 ! Go get the next record, but special case when we are at the position 
) 45 ' of insert. 
94 45 : 
95 45 NEXT : 
4 45 BEGIN 
9 45 
98 45 IF .REC_ADDR EQLU .POS_INSERT 
399 45 AN 
400 45 NOT .IRABCIRBS$V_REC_W_LO) 
401 46 THEN 
40 46 BEGIN 
40 46 
404 46 ! If this is an update, check to see if it needed an rrv, since 
tbe ? the record will go in the left bucket. 
407 6 IF .IRABCIRB$V_UPDATE) 
408 6 THEN 
? BEGIN 


~ 


IF {B0BCBDBSL_veN] EQLU .IRABCIRBSL_PUTUP_VBNJ 
NEED_RRV = .NEED_RRV - 1; 
END; 


! Force record to low bucket, and put in key buffer 2 the key 
of the record we are inserting (currently in keybuffer 3). 


IRABCIRB$SV_REC_W_LO] = 1; 
RMSMOVE (. IDX_DFNCIDX$B_KEYSZ], KEYBUF_ADDR(3), KEYBUF_ADDR(2)); 


If we are inserting at the end of the bucket, or if the record 

at position of insert has a different key from that to be inserted 
leave NEXT so that no other record goes to the left bucket (so far). 
If the key is a duplicate, then keep them together in the left 
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86 bucket. 

88 IF .REC_ADDR EQLU .£0B 
oy LEAVE NEXT 

49 BEGIN 

49 

494 BUILTIN 

495 AP; 


OCAL 
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: Determine the size of the current record. 
REC_OVHD = RMSREC_OVHD(0; S_REC_SIZE); 


' Save the address of the current record if its key is zero front 
compressed. 


if + 1DX_DFNCIDXSV_KEY_COMPR] 
.(.REC_ADDR + .REC_OVHD + 1)<0,8> EQLU 0 
THEN 


: 2441 500 

; rr 2 1 REC_OVHD = RMSREC_OVHD(0); 

3 2444 5 : ! When the key is compressed, we must build it first in key 

3; 2445 504 ' buffer 5, and then compare. This build is easy because we 

: “a 23 can take the front chars from the key to be inserted. 
Sec $07 IF _.1DX_DFNCIDXSV_KEY_COMPR] 

; 2450 509 THEN ~ eo 
: 2451 510 BEGIN 

: 128 511 9 CURR_KEY = KEYBUF_ADDR(5); 

> 245 31g 9 PMSMOVE ( .(.REC_ADDR + .REC_OVHD + 1)<0,8>, 

3: 2454 513 9 KEYBUF ADDR(2), 

: 2455 514 9 .CURR_REY ); 

; 3436 315 3 RMSBUILD_KEY ( TREC_ADDR + .REC_OVHD, .CURR_KEY ); 

3; 2458 219 8 ELSE 

: 2459 2518 : CYRR KEY = .REC_ADDR + .REC_OVHD; 

; 2460 2519 AP = 3; ! Contiguous compare of keys 
3; 2461 2520 8 
; 5708 25) 8 IF RMSCOMPARE_KEY ( .CURR_KEY 

: 246 5 ¢ 8 KEYBUF_ADBR(2), 

3 2464 25 : . 1IDX_DFNCIDX$B_KEYSZ] ) 

3; 2465 2524 THEN 

; 2466 2525 8 LEAVE NEXT; 

3: 2467 2526 7 END; 
3; 2468 ese? 7 
3 7444 sess 6 END; ! end of { at position for insert for the 1st time } 
4 | 
3 2471 $296 6 ! Now RMS will scan the bucket starting from the current record 

3: 2472 2531 6 ! position and keeping duplicates together, since RMS does not want to 
3 2473 236 6 : spite the bucket in the middle of a duplicate chain. Before scanning 
3 2474 533 6 ! RMS obtains the size of the current record, saves its address in 
3 2475 534 6 ! IRBSL_LST_NCMP, if its key in zero front compressed, and saves the 
3; 2476 2535 6 ! key of the current record in keybuffer 2 
3: 2477 2536 6 : 

3; 2478 2537 7 BEGIN 

3: 2479 538 7 | 
3; 2480 539 7 OCAL 

3: 2481 540 7 REC_OVHD 

> 268 2541 7 S REC SIZE, | 
3 re $206 4 nOT_DOP; 

; $4 5 544 7 NOT_DUP = 0; ! assume duplicates 

3: 24 545 7 

3 546 7 

3 547 7 

3 548 7 

3 549 7 

; 550 7 

3 551 7 

; 226 7 

; 553 7 

3 554 7 

3 555 7 

5 556 7 


18-se -1984 02:03: AX-11 Bliss-32 V4.0-74 
RMSSPLIT_UDR_3 14-Sep-19 4 96:87:28 LRMS «SRC RMSSPLUDR.B32; 
IRABCIRBSL_LST_NCMP] = .REC_ADDR; 
Move the key of the current record into keybuffer 2. Fool RMSMOVE_KEY 
! a Little by always clearing REC_W_LO so that we get in key buffer 2 
the key associated with the record we are pointing to. 
BEGIN 


LOCAL 
TMP : BYTE; 


ww 
~ 


PWN" OCONAUE WOO 


TMP = .IRABLIRBSB_SPL_BITS]; 
IRABLIRBSV REC W_CO) = 0; 
MSMO ‘ REC ADDR) ; 


V . 
IRABCIRB$B_SPL_BITS) = . 
END; 
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! Position to the next record which does not contain a key duplicate to 


7 
7 
7 
7 
7 
2 7 
5 
5 
5 
5 
5 
5 
5 
an 
37? 4 } that of the current record (whose key has been saved in keybuffer 2). 
577 7 dO 
578 8 BEGIN 
579 8 
580 8 BUILTIN 
581 8 AP; 
286 8 
583 8 IF .REC_ADDR EQLU .E0B 
584 8 
2585 8 EXITLOOP; 
2586 8 
2587 8 AP = 3; 
2588 8 
2589 8 IF .BDBCBDBSL_VBN] EQLU RMSRECORD_VBN() 
2590 8 THE 
$29) | NEED_RRV = .NEED_RRV - 1; 
3595 ; REC_ADDR = .REC_ADDR + .REC_OVHD + .S_REC_SIZE; ! get next rec 
2595 8 IF .REC_ADDR EQLU .E0B 
2596 8 THEN 
$292 ; EXITLOOP; 
229 8 REC_OVHD = RMSREC_OVHD(0; S_REC_SIZE); 
ret : IF .IDX_DFNCIDXSV_KEY_COMPR) 
603 9 BEGIN 
604 9 
605 9 IF .(.REC_ADDR + .REC_OVHD)<0,8> NEQU 0 
606 9 THEN 
607 9 NOT_DUP = 1; 
608 9 
609 8 
610 BEGIN 
ae 4 AP = 3; ! Contiguous compare of keys 
$18 9 IF RMSCOMPARE_KEY ( .REC_ADDR + .REC_OVHD, 
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16-Sep-1984 :03: AX-11 Bliss-32 V4.0-74 ica 57) 
RMSSPLIT_UDR_3 12-808 - 1382 06:03:28 FRMS SRC RMSSPLUDR.B32; aes (6) | 
KE YBUF AOOR (a) - 
- 1DX_DFN IDXS$B_KEYSZ] ) 


THEN 
NOT_DUP = 1; 
ND; 


If RMS is currently positioned to the point of insertion of the 
updated record, and if the = of the next record matches the 
key of the previous record, then the updated record must go 
into the old (left) bucket. 


et me 


} 
| 
| 
| 
| 
| 
F  -REC_ADDR EQLU .POS_INSERT 
NOT .NOT_DUP 
. IRABCIRB$V_UPDATE] 
THE 
BEGIN 
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9 
y 
y 
9 
: 
8 
: 
8 
8 
8 
8 
g 
3 3 4 IRABCIRB$V_REC_W_LOJ = 1; 
§ 4 IF .BDBCBDBSL_VBN) EQLU .IRABCIRB$L_PUTUP_VBNJ 
2637 9 NEED_RRV = .NEED_RRV = 1; 
2638 8 END; 
2639 8 
2640 8 END 
2641 8 
soe : Loop until a non-duplicate record is found 
2644 7 UNTIL .NOT_DUP; 
2645 7 
ek} ? END; ! end of block defining NOT_DUP 
2648 6 ! If the key compares brought us up to the pos of insert, see if the 
2649 6 : key of the new record matches the key of the record before the | 
2650 6 ' position of insert. If it does, have to include the new record with 
2651 6 ! the ths. 
seg 6 : 
see 6 
654 6 IF .REC_ADDR EQLU .POS_INSERT | 
2655 6 THEN 
2656 7 BEGIN 
657 7 
658 7 BUILTIN 
659 7 AP; 
660 7 
661 7 AP = 3; 
2662 7 
2665 7 IF NOT RMSCOMPARE_KEY( Me Beetle 
605 2664 7 KEYBUF _ADDR(5), 
606 665 7 - 1DX_OFNCIDX$B_KEYS2) ) 
607 666 7 
608 66 $ BEGIN 
609 668 IRABCIRB$V_REC_W_LOJ = 1; 
610 669 ; 
611 2670 IF .IRABCIRBSV_UPDATE) 
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H gig 671 AND 
; oi? ore -BDBCBDB$L_VBN] EQLU .IRABCIRBSL_PUTUP_VBNJ 
; 2615 674 NEED_RRV = .NEED_RRV - 1; 
H seis 675 END; 
; 2617 9/8 7 
; seis 677 6 END; 
; 2619 678 2 
> 2620 679 END; ! end of NEXT 
; es! et ? END; ! end of * BLOCK 2 * 
3 36 5 seb END; ! end of HALF 
; 2625 sone ! define a new block here so local storage can be redefined 
; 2626 685 : 
3 2627 2686 4 BEGIN 
; 2628 2687 4 
H a4 2688 4 CRO 
; 2630 2689 4 BEG_CHAIN = LHS %, 
; 2631 2690 4 END_CHAIN = RHS %, 
; 2632 2691 4 DUPS = RRV &; 
; 2633 $008 4 
3 2634 2695 4 LOCAL 
3 2635 2694 4 FIRST_KEY_EXPANSION; 
; 2636 2695 4 
; 2637 2696 4 BUILTIN 
; 2638 2697 4 AP; 
; 2639 2698 4 : 
3 2640 2699 4 ! If we end up with a duplicate chain here, we need to account for the 
; 2641 2700 4 i the fact that the first record which would a Be Pe a new bucket 
3; 2642 2701 4 ! will have it's first key expanded fully. Initialize the expansion 
3 2643 HA 4 ! amount to 0. 
3 2644 2703 4 
3 2645 2704 4 FIRST_KEY_EXPANSION = 0; 
3 2646 2705 4 
3; 2647 2706 4 ! Must be a 3 or 4 bucket split or we detected ascending order and the new 
3 2648 2707 4 ' record was a dupe. We'll optimize here to the extent of af to keep a 
: 2649 2708 4 ! dup chain around the new record together and in the middle bucket. 
; 2650 2709 4 ! Note that in all the cases that follow the new record is going into the 
; 2651 2710 4 ! middle bucket. Therefore, the “‘lhs’’ will always fit, since it can only 
; 265 2711 4 : ert smaller (or stay the same size, in the degenerate case). Also note 
3 265 2712 4 ! that in any of these cases, the left hand bucket may be empty of data 
>: 2654 2715 4 ! records (have only rrv's in it) if the first split point is at the 
; $62? Siig : : beginning and all data records get moved 
3 2657 2716 4 IRABCIRB$V_NEW_BKTS] = 2; ! assume 3-bkt split until shown otherwise 
$ $38 srt ? IRABCIRB$V_REC_W_LOJ = 0; 
; 2660 2719 4 ! Initialize key buffer 2 with the contents of key buffer 3 (the value 
3; 2661 2720 4 ! of the primary key of the record being inserted). This is necessary 
; $06¢ 2721 4&4 ! when the new record is at the bog janine of the bucket and is going into 
; 266 5/56 * ! a bucket all by itself so that all the records in the bucket need rrv's 
; 2664 7235 4 ! since they all move into the next bucket. F 
; 2665 724 4 ! At any rate, that seems to be the only case where key buffer 2 is not 
3 606 1$3 ? correct coming into here and will be set correctly before leaving. 
: 5668 $755 4 RMSMOVE (. IDX_DFNCIDX$B_KEYSZ], KEYBUF_ADDR(3), KEYBUF_ADDR(2)); 
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; 2669 728 4 

; 2670 729 4 ! Find beginning and end of this possible dups chain equal to the key value 

; of f y ? of the record being inserted. 

; or8 7 ¢ 4 REC_ADDR = -BKT_ADDR + BKT$C_OVERHDSZ; 

; 2674 sf 5 BEGIN 
; 2675 734 5 
; 2676 sf eS 

; 2677 736 «65 STATUS, 

; 2678 e737 65 REC_OVHD 
; 2679 2738 § S REC SIZE, | 
; sony $i78 2 CORR_REY; 

; 2681 740 

- 268 2741 5 WHILE 1 
; $o8 ging 5 dO 
3 2684 2743 6 BEGIN 
; 2685 2744 6 
; 2686 2745 6 REC_OVHD = RMSREC_OVHD(O; S_REC_SIZE); 

; 2687 2746 6 
: 2688 2747 6 ! If the key is compressed, it must be rebuilt into keybuffer 5 first 

; 2689 2748 6 { 
; 2690 2749 6 

3; 2691 2750 6 IF .IDX_DFNCIDX$V_KEY_COMPR] 
; 269 2751 6 THEN 
; 269 $f26 7 BEGIN 

3 2694 2753 7 CURR_KEY ed aay ADDR(5); 

3 2695 2754 7 RMSBOILD _KEY -REC_ADDR + .REC_OVHD, .CURR_KEY ); 

; 2696 2755 7 END 

; 2697 2756 6 ELSE : ee mata 

; 2698 2757 6 ! Otherwise, we are already pointing to the beginning of the key 

; 2699 2758 6 ‘ 
; 2700 2759 6 CURR_KEY = .REC ADDR + pw _OVHD; 

: 2701 2760 6 = 3; ons itveus compare of keys 

; 2702 2761 6 STATUS = RMSCOMPARE_KEY - CURR_K 

; 2703 2762 6 KEYBUF_ADDR(3), 
: 2704 2763 6 - IDX UDFNETOXSB. KEYSZ] ); 

; 2705 2764 6 XS ; 
; 2706 2765 6 IF NOT .STATUS ! If key matched, found beginning of chain 
; 2707 2766 6 THEN 
; 2708 2767 6 EXITLOOP; 

; 2709 2768 6 
3; 2710 2769 6 IF .REC_ADDR LSSU .POS_INSERT 

3: 2711 2770 6 H 

3 sols $07) e RMSMOVE( .IDX_DFNCIDX$B_KEYSZ], .CURR_KEY, KEYBUF_ADDR(2) ); 
5 Shia $358 6 IF .REC_ADDR EQLU .E0B 
: gti? 2774 6 
. rig 2775 6 -STATUS LSS 0 
: 271 2776 6 THEN 

: 2718 2777 7 BEGIN 

3: 2719 778 7 

; 2720 779 7 f oft! SPLIT TYPE 5 fit! 

: 2721 780 7 i No duplicates found. For simplicity, do a 3-bkt split at the 

: 138 3r8 ; point of insert with the new record in its own bucket. 

3 27246 38 7 inagcinesy SPLIT] = IRABCIRBSW_SPLIT_1] = .IRABCIRB$W_POS_INS); 

: 2725 2784 7 LEAVE DO_IT 
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; 37 $ 785 7 
; g ‘ 4 4 { end of didn't find a duplicate, put record in its own bucket } 
: 2729 788 6 END; 
; 2750 789 6 
3; 2731 790 REC_ADDR = .REC_ADDR + .REC_OVHD + .S_REC_SIZE; | | 
: f ; a4! END; ! {"end of while fo duplicate has been found } 
: ie 3738 2 END; ! { end of block defining status for while loop } 
; zr : Pe? : Found the beginning of the dups chain, now find the end. 
Shae 797 4 — BEG_CHAIN = .REC_ADDR; 
; 2740 799 #5 BEGIN | 
ire $801 3 | 
; AK: g80¢ NOT_DUP, | 
3 2744 2803 5 REC_OVHD 
; gra 2804 3 S_REC_SIZE; 
> 2747 2806 5 NOT_DUP = 0; ! assume more duplicates 
: 2748 807 ; RECTOVHD = RMSREC_OVHD(0; S_REC_SIZE); 
: 2750 2809 5 ! Ok, keep track of how much the first key would expand if placed 
: ste) soi? 2 ! at the beginning of a new bucket. 
: shag e812 5 IF .IDX_DFNCIDX$V_KEY_COMPR] | 
> 2754 2813 5 THE 
: 2755 814 5 FIRST_KEY_EXPANSION = .(.REC_ADDR + .REC_OVHD + 1)<0,8>; | 
; 2756 815 5 
: 2757 2816 5 ~— v0 | 
ven. he. 
> 2760 2819 6 REC_ADDR = .REC_ADDR + .REC_OVHD + .S_REC_SIZE; 
3: 2761 2820 6 IF SREC_ADDR EQCU .E0B 
: 2762 2821 6 THEN 
3 ste? sese ° EXITLOOP; 
: 3765 824 6 REC_OVHD = RMSREC_OVHD(O; S_REC_SIZE); | 
: $he9 2826 6 IF .IDX_DFNCIDX$V_KEY_COMPR 
: 2768 2827 6 HEN 
; 769 $f 8 7 BEGIN 
; 2770 829 7 
; aa $3 ? 4 IF .(.REC_ADDR + .REC_OVHD)<0,8> NEQU 0 | 
; $798 $3 7 NOT_DUP = 1 | 
> 277% e833 7 
> 2775 B34 ELSE 
: 2776 835 BEGIN 
: 2777 836 7 | 
; re Sea 4 AP = 3; ! Contiguous compare of keys 
: 2780 aso 7 IF RMSCOMPARE_KEY ( .REC_ADDR + .REC_OVHD, | 
+ 2781 3540 7 KEYBOF_ADDR(3), 
; 2782 841 7 . LOX_DFNCIDX$B_KEYSZ] ) 
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: 2783 42 7 THEN 
: 2784 43 7 NOT_DUP = 1 | 
: 2785 44 6 END; 
> 2786 45 6 
: 2787 e78 6 END 
: 2788 4 g 

: $189 TE Se be cl cs ! end of found end of dups chai | 
; ; ! end of found end of dups chain 

: 5791 850 : | 
; a g2) : END_CHAIN = .REC_ADDR; 
; 3794 B88 4 ! found the beginning and the end of the chain. Calculate its size. 

3; 2795 854 4&4 ! If we got here via an update, we never called RMS$SRCH_BY_KEY to set 

3: 2796 855 4 ! DUPS_SEEN for us, so let us do that now if necessary. ATso be sure 

; 2797 856 4 ! to factor in the amount of key expansion that the first key would 

; 2798 857 4&4 : undergo if placed first in a new bucket. If the keys aren't 

; 2799 858 4 ! compressed, don't sweat it -- FIRST_KEY_EXPANSION was initialized 
3 soo $828 : ! to zero, and only changed if key compression is in effect. 

: sole 2861 4 IF .POS_INSERT GTRU .BEG_CHAIN 

; 280 $006 4 THEN 

3 2804 2865 4 IRABCIRBSV_DUPS_SEEN]) = 1; 
; 2805 2864 4 
; 2806 2865 4 DUPS = .END_ CHAIN = .BEG_CHAIN; 

; 2807 2866 4 DUPS = .DUPS + .RECSZ + TFIRST_KEY_EXPANSION; 
; 2808 seer 4 
: 2809 868 4 IF .DUPS LSSU .BKTSIZE | 
; 2810 2869 4 THEN 

; 2811 2870 5 BEGIN 

: 2812 2871 5 

3; 28135 gore 5 '¢ 
3; 2814 2873 5 1 8t!! SPLIT TYPE 1 fi!!! 

: 2815 2874 5 ! Duplicates found and fortunately, they all fit in one bucket, 

: 2816 2875 5 ' so do a 3=bkt split with all of the dups in the middle bucket. 
; 2817 2876 5 : Because of the optimization used for dups being inserted “in order’’ 
; 2818 2877 5 ! this can sitll be a 2-bkt split if the new record is being inserted 

3 $855 sore : , at the end of the bucket . 

: : | 
3 2821 $840 5 ! 22-jan-79 If LOA forced us to think that a bkt with all dups had to 
; $e5$ 2881 5 ! be split ( only on put) be smart and just put new record by itself. 
: 282 sees 5 ! A better solution would be not to split at all, but at this date 
3 ase seer : : it's rather inconceivable. 

3 bs6 85 2 ! 23-jan-79 It's not only LOA that can fool us, the bkt might have 

: 28 86 ! had a lot of rrv's. 

3; 2828 887 : te 

3; 2829 888 

: 28 889 5 byes ps oe og be = .BEG_ CHAIN - .BKT_ADDR; 
; th 330 2 IRABCIRB$W_SPLIT_1] = .END_CHAIN - .BRT_ADDR; | 
; 83 892 5 IF .END_CHAIN EQLU .E0B 

3 2834 893 5 THEN 

; 2835 894 6 BEGIN 

3 339 444 6 IRABCIRB$V_NEW_BKTS) = 1; 

; 2838 B99 : IF .BEG_CHAIN EQLU (.BKT_ADDR + BKTSC_OVERHDSZ) 

; 2839 898 6 THEN 
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; 2840 899 7 BEGIN 

> 2841 900 7 IRABCIRBSW_SPLIT_1] = .IRABCIRB$W_SPLIT_2]; 

; Beg 901 7 IRABLIRB$W SPLIT] =_.IRABCIRBS$W_POS_INSJ; 

: ek 38 4 . IRB$V_CONT_BKT] = 1; 

: 2845 904 7 

>; 2846 905 g END 

3: 2847 906 ELSE 

; 2848 907 6 BEGIN 

$ $ee2 908 6 

: sey 3484 e IF .IRABCIRB$W_SPLIT] EQLU BKTS$C_OVERHDSZ<0, 16> 

; 2850 2311 6 IRABCIRBSV_EMPTY_BKT] = 1; 

; 2854 3318 6 ! Only force record into the low bucket if it is not the first 

: tH sale ? one in a duplicate chain. 

: 2857 2916 6 

; 2858 2917 6 IF .END_CHAIN GEQU .POS_INSERT 

3 $622 $3\8 ? a. - TRABCIRB$SW_SPLITJ NEQU .IRABCIRBSW_POS_INSJ 

3 } 

: see! $350 3 mm IRABCIRB$V_REC_W_LOJ = 1; 

; sacs ge : 

; iS ¥¢: $o57 : LEAVE DO_IT 

3 A 94 $352 7 END; ! { end of duplicates found and they fit in one bucket } 

: 2868 2927 4&4 ! This next test can only happen on an update so the all dupes case 

3; 2869 2928 4&4 ! will fall thru to split type 2, which will put the new record by itself. 
: 2870 3444 4 : Consider oddball update case in which there are dups before and after 

3; 2871 2930 4 ! position of insert. ( note that if this case doesn't apply, the duplicates 
3; 2872 2931 4 ! were only before or after -- and didn't fit with record -- so new record 
: 3 th oaRs : will end up by itself. for code flow purposes, leave that till later). 
: 2875 2934 4 

; sere soe 2 IF ziRABCIRGSV _DUPS SEEN] 

; 2878 2937 4 yTENDACHAIN GTRU .POS_INSERT 

; 2880 2939 5 BEGIN 

: sees 2940 5 

3: 2882 2941 5 IF .DUPS = (.POS_INSERT = .BEG_CHAIN) LSSU .BKTSIZE 

1 feted 8 ah 

; 2885 e944 3 ! if high dups will fit with record, put them in a bucket together 
; 2887 $s 6 BEGIN 

: 2889 948 6 ‘+ 

3; 2890 949 6 . 288o SPLIT TVPE 4 {33 

; 2891 950 6 ! 3 bkt split where middle bkt is a continuation bkt containing 

: 289 335, ° new record and dups following it 

+ 2894 935 6 i ''!! AND SPLIT TYPE 4B !!!!! however, if the hi set consists 

; 2895 Sere 6 ! solely of duplicates, we can still have a 2=-bkt split case that 
3; 2896 955 6 ! would not have been picked up by the previous algorithm ( since 
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it won't divide dups). 


IRABLIRBS$V_CONT BT) = 1; 
IRABCIRBSW-SPLIT] = .IRAACIRB$W_POS_INS); 


IF_.END_CHAIN EQLU .£0B 
IRABLIRBSV_NEW_BKTS] = 1 
IRABCIRBSW_SPLIT_1] = .END_CHAIN = .BKT_ADDR; 


REC_ADDR = .BEG_CHAIN; 
RMSMOVE ( .IDX_BFNCIDXS$B_KEYSZ], KEYBUF_ADDR(3), KEYBUF_ADDR(2) ); 
LEAVE DO_IT 


END; 
try to fit new record with before-dups in middle bucket 


at ~ (.END_CHAIN = .POS_INSERT) LSSU .BKTSIZE 
BEGIN 


1+ 

1 1'!! SPLIT TYPE 5 Si!!! 

! 3 or 4 bkt split ( depending on status of ; 

! high set) where Left-middle bkt is new record with before-dups 

! and right-middle bkt, if it is needed, is a continuation bkt 

! with the after-dups. it is needed if the dups aren't the whole hi 
! set it still is a continuation bkt. 


' 
' 
' 
' 
' 
: 
! xeeee NOTE FROM NOV-7-78 

! This case doesn't take into account the fact that the 

! whole bucket may be dups. In the case of all dups, we could 
! end up generating an empty bucket when we don't have to (if 

! mo RRV'S) or a relatively useless bucket (some RRV's). In any 
' event we could end up generating an extra bucket when we 
don't have to 


RABLIRB$W_SPLIT] = .BEG_CHAIN - .BKT_ADDR; 
RABLIRBSW-SPLIT_1] = .1RABLIRBSW.POS~INSJ: 
F_gIRABCIRBSW. SPLIT] EQLU BKTSC_OVERHDSZ<0, 16> 
IRABLIRBSV_EMPTY_BKT] = 1; 
IRABLIRBSV_REC_W_LO) = 1; 


IF _.END_CHAIN LSSU .E0B 
THEN 


BEGIN 
IRABEIRBSV NEW BKTS] = 3 


IRABCIRBSU~SPLTT_2 = .END_CHAIN - .BKT_ADDR: 


; 
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13 6 ELSE 
O14 IRABCIRBSV_CONT_RJ = 1; 
LEAVE DO_IT 
END; 
{ end of oddball update case with dups on both sides of new record } 


END; 


the new record must go all by itself therefore, ; | 
this is a 5-bkt split if there are no after-dups or no hi set and a 4-bkt 

split if both of those exist even more exceptional, this can still be a 

2-bkt split if there is no hi set at all ---- ji.e., eob = end of the dups 
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3 4 6 

; O16 & 

3 5 5 

; 0 § 

3 020 

: Be 

3 

; 0 § 4 

: 8 4 4 

3 5 4 

: 026 4 

3 027 4 

5 028 4 

3 3029 4 

3 $0 0 4 chain | 
; 031 4 - 
3 3036 4 

: $037 2 IRABCIRB$W_SPLIT] = IRABCIRBS$W_SPLIT_1] = .IRABCIRB$W_POS_INSJ; 

; 3035 4 IF .IRABCIRB$V_DUPS_SEEN] 

3 3036 4 THEN 

; 3037 5 BEGIN | 
; 3038 5 IRABCIRBSV_CONT_BKT) = 1; 

3 3039 5 REC_ADDR = .BEG CHAIN; 

3 3040 5 RMSMOVE ( .IDX_BFNCIDXS$B_KEYSZ], KEYBUF_ADDR(3), KEYBUF_ADDR(2) ); 
: 3041 4 END; 

3 sne6 4 | 
: She 4 IF .POS_INSERT EQLU .E0B 

: 044 4 TH 
3 3045 4 IRABCIRBSV_NEW_BKTS) = 1 

; 3046 4 SE 

3 3047 4 
3 3048 4 IF .POS_INSERT LSSU .END_CHAIN 
; 3049 4 THEN 

: $o29 5 BEGIN 
; 051 5 
3 $038 5 IF .END_CHAIN LSSU .EOB 

3 3053 5 H 

3 3054 5 IRABCIRBSV_NEW_BKTS) = 3 

3 3055 5 ELS 

3 3037 é IRABCIRB$V_CONT_R) = 1; 

; 058 5 IRABCIRBSW_SPLIT_2] = .END_CHAIN - .BKT_ADDR; 

; bop ? END; 

3 9d ; END; ! { end of block defining local symbols } 

; O68 END; ! { end of do_it } 

5 065 ! if the first split te is at the bogtaning of the data, this means that 

; po8 ! all data records will be moved out and only rrv's will be left in the 

3 ot original bucket ..... therefore, we can mark this bucket as empty 

: 069 
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; a af IF j{RABCIRESw. SPLIT) EQLU BKTSC_OVERHDSZ<0, 16> : 
: 201 ? NOT .IRABCIRBSV_REC_W_LO) ; 
: $18 a8 : N RABLIRBSY enety B 1 1 : 
; t _BKT) = 1; : 
: 818 $72 RETURN 
; 3018 599 ; 
; 3019 078 END; ' { end of routine } 3 
OC BB 00000 RMSSPLIT_UDR_3:: : 
PUSHR = #“M<R2,R3> ; 1817) : 
SE 4 (2 90002 SUBL2 #36, : : 
44 AD 48 8F 8A 0000 BICB2 #72, 68(IRAB) : 1935 ; 
44 a9 02 01 01 FO OOO0A INSV 1, #1, #2, 68(1RAB) + 1936 ; 
7E 04 90010 CLRL  NEED_RRV + 1937) ; 
56 DD 00012 PUSHL REC_ADDR : 1938 ; 
28 «AE OF AS 9E 00014 MOVAB 14(R5), 40(SP) : 1939 ; 
56 28 «AE 00 00019 MOVL 40(SP), REC_ADDR : ; 
50 04 AS 3C 0001D MOVZWL 4(BKT_ADDR)> RO + 1940 ; 
6045 9F 00021 PUSHAB (RO) CBKT_ADDR] 3 ; 
7E 04 00024 CLRL ~—LAST + 1941 : 
2€ 66 03 £0 00026 1$ BBS #3, (REC_ADDR), 4$ + 1949 : 
5C 03 DO 0002A MOVL A : 1953 : 
00006 30 000¢0 BSBW § RMSRECORD_VBN : 1955 ; 
50 1¢ A& D1 00030 CMPL 28(BDB), RO : 3 
03 12 00034 BNEO : : 
OC AE 06 00036 INCL NEED_RRV : 1957 : 
6E 56 DO 00039 2$ MOVL § REC_ADDR, LAST : 1959 ; 
1 1¢ «OA? 06 f 0003¢ BBC #6, 28(10X_DFN), 3$ : 1966 : 
00006 30 00041 BSBW RMSREC_OVH : 1970 ; 
01 A046 95 00044 TSTB —s- 1 (RO) CREC_ADDRIJ : : 
05 12 00048 BNEQ 3$ : ; 
0098 C9 56 00 0004A MOVL REC_ADDR, 152(IRAB) : 1972 ; 
00006 30 O004F 3s: BSBW RMSGETNEXT REC : 1975 : 
04 AE 56 D1 00052 CMPL = REC_ADDR, EOB : 1977 : 
CE 1F 00056 BLSSU. 1 : 3 
6E D5 00058 4$: TSTL _—LAST : 1982 ; 
1D 13 O0005A BEQL 5$ : ; 
51 56 00 9005¢ MOVL §_REC_ADDR, TMP_ADDR : 199 ; 
56 6E DO 0005F MOVL LAST, REC_ADDR : 199 ; 
5¢ ps 00062 CLRL > 1994 : 
50 00B4 CA 3C 00064 MOVZWL 180(IFAB), RO + 1995 ; 
50 03 C4 90069 MULL2 : | : 
60 8940 SF 0006C PUSHAB @96(1RAB)C(RO) ; : 
00006 30 9070 SBW = RMSRECORD_KEY : : 
5E 04 CO 0007 ADDL2 #4, SP : : 
56 1 b9 0076 MOVL_ TMP_ADDR, REC_ADDR > 1996 | : 
50 56 33 C3 00079 5$: SUBL3 BKTIADDR REC"ADDR, RO > 2002 | : 
4E OAD 0 80 00070 MOVW «RO, "78 IRAB) : | : 
4G AD 50 : 0081 MOVW RO 76(1RAB) : : 
51 17 A? 9A 00085 MOVZBL 23(IDX_DFN), R1 > 2006 | : 
51 51 09 78 00089 ASHL #9, R17 RI : | : 
| 
j 
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you-000 RMSSPLIT_UDR_3 a aet 96:07:28 LRMS SRC RM3SPLUDR.B32; 1 o° 6) | v( 
| ee FO OAL OO MOVAB -16(R1), BKTSIZE ; | : 

OA 06 A 03 i 0092 BBC a, 6(IRAB), 6$ + 2011) ; 
A9 1¢ AS D1 0009 CMPL : (BDB), 120(1RAB) + 2015 | ; 

03 12 0009C BNEO a : | ; 

0c AE 0g 009 INCL. NEED_RRV + 2017. ; 

18 «AE 4 AE C3 OOOAl 6$ SUBL3 REC_ADDR, EOB, RRV : 920 ; 
4 AE 6 00 000A7 MOVL RECTADDR. + 2021) : 

0 AE $ D1 OO00AB CMPL RECZADDR, 48(SP) : 2026, : 

: 12 OOOAF BNEQ 7 : | ; 

049E 31 00081 BRW 68$ : ; 

56 08 AE 01 00084 7$ CMPL = POS_INSERT, REC_ADDR * 2058 ; 

90 le ppes BNEQ 8$ ; 3 

51 6 1 ¢ OOBA ADDL3 #1, LAST, R1 : 2060 | : 
5 $1 C 000BE MOVZWL (R1), : ; 

0 D6 000C1 INCL RO : | : 

06 AS 30 B1 000C3 CMPW =s«RO, 6 (BKT_ADDR) : ; 

03 13 000C7 Bs: BEQL 6-9 : ; 

0080 31 990¢9 BRW 1 : F 

56 6E DO 000CC 9S: MOVL LAST, REC_ADDR > 2064 ; 

1F 10 «A? 06 FI OOOCF BBC #6, O8(IDR_DFN), 128 + 2073, : 
68 B89 95 000D4 TSTB © 104 (IRAB) : 2077 F 

03 12 90007 BNEQ 11$ : ; 

03¢ 4 00D9 10$: BRw 62$ : 3 

50 0084 CA %3C 000DC 11$:  MOVZWL 180(IFAB), RO + 2089 ; 

60 8940 9F 000E1 PUSHAB @96(IRAB) (RO) ; ; 

50 00B4 CA 3C OO0ES MOVZWL \BOCIFAB) RO : 2088 ; 

50 03 C4 OOOEA MULL2 #3, RO F ; 

60 8940 9F O00ED PUSHAB @96(IRAB) CRO] : ; 

28 11 000F1 BRB 13$ + 2087 ; 

1 bs OOOF3 12$: CLRL sR : 2108. ; 

00006 50 000F5 BSBW  RMSREC_OVHD : | : 

5C 03 00 000F8 OVL #3, AP : 2109 : 

3 0084 CA 3C 000FB MOVZ2WL 1B0(IFAB), R : 2112 ; 

5 60 8942 E 00100 VAW @96(IRAB)ER2Z], R3 : ; 

51 56 50 C1 00105 ADDL3 REC OVHD, REC ADDR, R1 : 2111 ; 
50 20 A? 9A 00109 MOVZBL 32(TDX_DEN), ; : 

00006 30 0010D BSBW RMSCOMPARE_KEY ; ; 

C6 5 9 0011 BLBC ~—_—«aRO,_:108 : ; 

60 8942 9F 0011 PUSHAB @96(IRAB)CR2] : 2118) : 

52 0 g4 oor MULL2 #3, R2 : 2117 | ; 

60 8942 SF OO1IA PUSHAB 996(IRAB)(R2) ; ; 

7E 20 =A A O11E 13$: MOVZBL 32(IDX_DFN), -(SP) + 2116 ; 

00006 30 001 BSBW == RMSMOVE : | : 

SE 08 ¢0 4 ADDL2 #8, SP : | : 

008s CA 3¢ 01 MOVZWL 180(I1FAB), RI > 2121) 2 

50 51 ; 120 MULL3. # _R ; | F 
6E 60 8940 SE 00131 MOVAB @96(IRAB) RO}. (SP) : : 

$0 B941 3F 001 PUSHAW @96(IRAB)(R1 > 2120) ; 

7€ A? 9a 0013A MOVZBL 32(1DX_DFN), -(SP) > 2119 3 

00906 13€ SBW RMSMOVE 3 3 

5E € (tO 00141 ADDL2 #i2, SP : : 

4A AD 48 a9 144 MOVW 72({RAB), 74(IRAB) : 21 : 

OSEF 31 00149 BRW 96$ : 2123 | : 

56 30 AE DO 00140 148: MOVL 48(SP), REC_ADDR > 21 : 

0098 69 3 D0 001 ’ MOVL REC ADOR, 152(1RAB) > 2134 | ; 

28 «AE 7FFFFFFF «©68F 600 001 MOVL #21%7483647, LAST_DIFF 3 2135 | ; 

6— D4 00150 CLRL ~—_ LAST : 2136 | : 


betes DR 16- seo-1984 96:03:28 AX-11 Bliss-32 V4.0-74 Page 67 


RMSSPLIT_UDR_3 14-Sep-1984 RMS. SRCIRM3SPLUDR.B32; (6) 
2¢ «AE «OS 0015F CLRL_ SAVE REC _w : 2137 
10 AE So a 6 C3 19g 15$:  SUBL3 REC. Koo EDR. : 3130 
8 AE ; 1 CMPL REC. ADDR. PO INSERT + 2152) 
A 1A 0016C BGTRU 1 ; | 
05 44 a9 3 £0 1g BBS 8(1RAB), 16$ > 2154 
10 A 40 AE CO 001 ADDL2 nets : 2156) 
3E a 9 £1 00178 16%: BBC bIDX DEN), 20$ : 16 
08 AE 6 D1 0017D CMPL met ADDR, POS_INSERT : 2173. 
4 if 181 BNEG  19$7 : | 
1F 44 Ad ; EO 001 BBS 43. 68(IR AB) ,.19$ : 2175. 
0c 06 A 5 1 BBC #3. 6(IRAB), 17$ : 2177) 
20 0084 cA C 001 MOVZWL 186¢TFAB) { > 2179) 
60 8940 DE 001 MOVAL @96(IRAB)EROJ, RO : | 
04 «+171 19 BRB \3¢ : 
50 68 Ag po 0199 17% MOVL  104(IRAB), RO ; 2181 
1 01 AQ 9A 0019D 18$ MOVZBL 1(RO), Ri F | 
10 AE 51 CO OO1A1 ADDL2 Ri, RHS : 
14 11 OO1AS BRB 20$ + 2177) 
04 AE 56 D1 OO1A7 198 CMPL = REC_ADDR, EOB 2191 
—E 1€ OO1AB BGEQU 2087 ; 
1 ps 001AD CLRL RT + 2193) 
00006 30 OO1AF BSBW RMSRE REC OV : | 
53 01 Adds 9A 018 MOVZBL AROS REC MADDRI, R3 : 
10 AE 53 CO 001B ADDL2. R3, RHS ; 
1C AE 10 AE 01 00188 208: CMPL  RHS, BKTSIZE > 2203) 
9 1F 001CO BLSSU 228 : 
0157 31 ice zis: Rw 4$ : 
06 AS 85 001C5 228: TSTw $(BKT _ADDR) + 2205) 
13 1 001¢8 BNEQ  23$ : | 
1 06 Ad 03 f OO1CA BBS #3, 6(IRAB), 23 t 2207) 
50 O€ AS SE OOICE MOVAB 14(R5), RO + 2209 
50 56 (D1 90103 CMPL REC ADDR, RO : 
05 12 00106 BNEG 23$ : 
£5 44 a9 9 E1 00108 BBC #3, 68(IRAB), 21$ ; ay 
0 56 €3 001DD 23$:  SUBL3 Bxf ADDR, pet ADDR, RO + 2214 
52 F2 AO SE OO1E1 MOVAB -14TRO : 
08 AE 56 D1 OO1ES CMPL = REC “ADDR, ‘POS. INSERT : 2216 
09 #1F OO1E9 BLSSU 2487 ; 
04 44 Ad 03 €1 OO1EB BBC #3, 68(IRAB), 24$ > 2218 
~ 40 AE CO 001F0 ADDL RECSZ, LHS F 320 
50 . 18 Ar C1 OO1F4 24$: ADDL CHS, RO : 2230 
30 AE oc A 0 C3 O1F9 MULL ao. “NEED, RRV, 48(SP) ; 
5 30 AE CO OOTFF ADDL 48(SP ; 
1c AE 5 pt 0 03 CMPL etsite : 
OF 1a 00 BGTRU : | 
06 AS & 0 09 TSTW 6(KT_ ADDR) : 2237 | 
4 3 C BNEQ ; 
41 06 Ad 03 €£ BBS ‘ . 6CIRAB), 30$ > 2239 
3¢ 44 = AD 03 €1 0021 BBC * 68(IRABS, 30$ : g 41 
18 25$: —*TSTL bAgr 3 2245 
1A BNEQ rH 3 
02 1C BRW 62$ : 
56 6E D6 1f 268:  MOVL LAST, REC_ADDR > 2249 
04 2c AE f 2 BLBS SAVE REC @ LO, 278 > 2251 | 
44 Ad 9 A 6 BICB2 #8 BBCIRAB) > 2253 
33 6 p0 022A 27% MOVL REC_A > 2264 
6 OE AS 9E 0022D MOVAB RGCRS) TREC ADDR > 2265 
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RM3SPLUDR 16-Sep-1984 02:03: AX-11 Bliss-32 V4.0-74 Pp 
vod RMSSPLIT_UDR_3 12-308- 1382 96:97:28 LRMS.SRC RM3SPLUDR.B32; nia Be 
6 D 1 MOVL § REC_ADDR, LAST : 226 : 
$f se 4 ‘ 28$: CPL RECZADDR, TMP : 336 ; 
6 6 D 9 MOVL §REC_ADDR, LAST + 2271 : 
OE 1c OA bg 1 C BBC #6," 28(10X_DFN), 29$ : 3 79 ; 
09 G 4j BSBW SRM REC OVHB + 2283 ; 
01 A a6 44 ist 1<R0) REC_ADDRJ : : 
0098 «9 9 p 6 4A MOVL REC_ADDR, 152(IRAB) + 2285 : 
00086 7) 88 rif 298: BsBu BASSE TNERT REC 3 soe ; 
51 52 1¢ AE C 0 4 30$: MULL3  BKTSIZE, LHS, R1 : 532 ; 
0 1c AE 3 AE ¢ 9 SUBL3 48(SP), BKTSIZE, RO : 233 ; 
50 18 AE 50 C3 0025F SUBL3 RO, RRV, RO : ; 
50 10 AE C4 00264 MULL2 RHS, RO : : 
24 =O 51 50 C1 00268 ADDLS RO, R1, DIFFERENCE : ; 
03 18 0026D BGEO § : 2338 F 
0099 31 0026F BRW 4 : ; 
51 24 AE DO 00272 31$: MOVL DIFFERENCE, R1 + 2346 ; 
9 18 00 16 BGEQ 2$ ; : 
51 1 CE 0027 MNEGL 1, R1 : ; 
50 28 AE bo 99 7B 32$:  MOVL LAST DIFF. RO : ; 
03 18 0027F GEQ 3$ : : 
50 50 CE 00 81 MNEGL RO, RO ; : 
50 51 D1 00284 33$: CMPL R1, RO : 3 
14 18 00 87 BLEGU 36$ : ; 
6E 56 D1 00289 CMPL §_ REC_ADDR, LAST : 2350 ; 
09 13 0038¢ BEQL 4$ ; : 
56 6E D0 0028 MOVL LAST, REC_ADDR + 2355 ; 
08 AE 56 01 99291 CMPL § REC_ADDR, ~POS_INSERT : 2357 ; 
04 1€ 00295 BGEQU ; ; 
44 Ad 08 8A 00297 34$: BICB2 #8, 68(IRAB) : 2359 : 
6— D4 00298 35$:  CLRL LAST : 2362 ; 
6— D5 00290 36$: TSTL LAST 3: 2369 : 
2A 12 0029F BNEQ 40$ ; F 
53 56 DO 002A1 MOVL §_ REC_ADDR, TMP : 2376 : 
f OE AS 9E 0024 MOVAB 14(R5), REC_ADDR : 2377 : 
6 56 DO 002A8 MOVL REC_ADOR, LAST : 2378 3 
§ 56 D1 OO2AB 37$: CMPL REC“ADDR, TMP : 2380 : 
1B 13 OO2AE 38$: BEQL 40$ ; ; 
6 56 DO 0028 MOVL §REC_ADDR, LAST ; 2385 : 
1 7 A 06 £1 0028 BBC #6," 28(10X_DFN), 39% ; - 91 : 
00006 30 00288 BSBW 8S seaRM REC OVH > 2395 : 
01 A046 9 BB TSTB =: 1 (RO) CREC_ADDRJ ; : 
Q 1 BF BNEQ 9 : : 
0098 9 & p 02C1 MOVL REC_ADDR, 152(1RAB) : 2397 ; 
00006 C6 39$:  BSBW  RMSGETNEXT_REC + 2400 : 
EO 11 C9 BRE 37$ : 2380 3 
50 BE p (CB 40$:  ##MOVL LAST, RO > 2405 : 
F76F CE BSBW RMSMOVE KEY : : 
4A Ad 56 5 A D1 SUBW3 x! ADDR, REC_ADDR, 74(1IRAB) : 3406 ; 
48 Ag 4A a 8] BS iy 4(TRAB), 72(TRAB) 3: 241 3 
4C AD 4A AS ef ° Dp CAP 74(1RAB), 76(IRAB) > 2415 : 
03 44 Ad 03 (! 02E4 BBC = #3, OBC IRAB), 42$ 3 2418 | ; 
044F 31 O02E9 418 BRW 96$ ; | 3 
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VOur000 =—RNSSPLIT_UDR_3 1erSep-1986 8:01:40 Lams. SRCIRASSPL UDR-B32;1 


56 50 30 AE g1 O55 ADDL3 $_REC_SIZE, RO, REC_ADDR 
FFG 1 0056 BRW 63$ 
52 6 00 0966 70$ MOVL REC ADDR, LHS 
2c «AE «(D4 0056 CLRL - NOT_DUP 
51 pb, 056C CLRL 
00906 0 0096 BSBW RMSREC_OVHD 
146 AE 0 dO 00571 MOVL 0, REC OV OVHD 
30 OA 51 00 00573 MOVL R1, 48(SP) 
OA ic OA 06 £1 00579 BBC #6, 28(1DX DFN) 71$ 
50 14 AE 01 C1 00575 ADDL3 #1. REC_OV 
24 AE 6046 9A 0058 MOV ZBL (RO) CRET ADdAD, FIRST_KEY_EXPANSION 
28 AE 14 BE46 9E 00588 71$: MOVAB @REC_OVHBCREC_ADDRI, Z0(SP) 
56 28 AE 30 AE C1 O058E 72$: ADDL pret SIZE fotep. REC_ADDR 
04 AE 56 D1 00594 CMPL C_ADDR, bos 
42 13 00598 BEQL RFC 
51 ps 0059, CLRL sR} 
006 30 0059¢ BSBW RMSREC OVHD 
50 DO 0059F MOVL RO, REC_OVHD 
51 DO 005a3 MOVL (SP) 
46 9E 005A7 MOVAB anéc, OVHDCREC gfPoR] 40(SP) 
06 EI 005AD BBC 28(1DX_DFN), 73$ 
BE 95 00582 TSTB 3260) 
21 13 0058 BEQL 75$ 
1B 11 00587 BRB 74$ 
03 00 00589 73$: MOVL #3, AP 
CA 3¢ 0058C¢ MOVZWL 180(IFAB), RO 
40 3€ 005C1 OVA a96(1haB) fRO, R3 
A? 9A 005C6 MOVZBL 32(IDX_DFN), RO 
AE DO OOSCA OVL 40(SP)> 
006 30 O05CE BSBW  RMSCOMPARE_KEY 
50 €9 00501 BLBC 0, 75$ 
01 00 005D4 748:  MOVL = #1 NOT _DuP 
AE €9 00508 75$: BLBC  NOT_DUP> 72$ 
56 DO 005DC 76S: MOVL § RECTADDR, RHS 
AE 01 005E0 CMPL §_ POS“INSERT, LHS 
05 1B 00564 BLEQU OS 
BF 88 005E6 BISB #128, 68(IRAB) 
52 C3 005EB 77$:  SUBL3 LHS RHS, PRY 
AE C1 005F1 ADDL3 RECSZ RO 
40 9E 005F7 MOVAB oF Rat KEY *EXPANSIONCROJ, RRV 
AE 01 005FD CMPL RRV, BRISIZE 
4D 1€ 00602 BGEQU 82$ 
55 AS 00604 SUBW3 BKT_ADDR, LHS, 74(IRAB) 
ss oA 00609 SUBW3 BKT-ADDR. RHS. 76(IRAB) 
AE D1 0060F CMPL HS; EOB 
1¢ iF 00614 BNEO 9$ 
01 FO 00616 INSV ss #1, #1 68(IRAB) 
§2 D1 0061¢ CMPL LHS. W358 gs 
2D 12 00620 BNEQ 1$ 
AI BO 006 : MOVW 78(IRAB), 76(IRAB 
A9 B0 06 MOV 72(1RAB) 74 IRAB 
10 88 0062C 78$ BISB2 #16, 68(IRAB 
75 11 00630 BRB 6$ 
AJ B1 00632 79%:  CMPW 4(IRAB), #14 
05 if 06 80$ 
8F 88 006 #64, 68(1RAB) 
AE 01 006 RHS, POS_INSERT 
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RM3SPLUDR 1b-se -1984 02:03:2 AX-11 Bliss-32 V4.0-742 Page 73 
v04=0 RMSSPLIT_UDR_3 12-808- 1383 06: BF:2 YAMS SREJRMESPLUDR 63245 ” (6) | 
63 1F 00642 BLSSU 86s ; : 
48 Ad 4A Ag i D644 CHP 4(IRAB), 72(IRAB) + 2918 ; 
44 Ad 08 5 0648 BISB2 #8, 68(IRAB) + 2920 : 
6 11 0064F B18: BRB § + 2923) : 
44 a9 95 00651 82$: TSTB 6 (IRAB) + 2935. ; 
0 19 0654 BLSS € : ; 
0086 31 0696 BRW 89$ : | ; 
08 AE 10 AE Di 06) 83$: CMPL RHS, POS_INSERT t 2937) : 
50 52 08 AE 3 00660 SUBL3 POS_INSERT, LHS, RO : 2941, ; 
50 18 AF a) 00665 ADDL2 RVR : | ; 
1c AE 50 D1 00669 CMPL RO, BKTSIZE ; ; 
3A le 00660 BGEQ : F 
44 Ad 10 88 0066F BISB2 #16, 68(IRAB) > 2959 | ; 
4A Ad 48 AQ BO 00673 MOVW  72(fRAB), 74(IRAB) ; 2960) ; 
04 AE 10 AE 01 00678 CMPL _—s-RHS, EOB + 2962 : 
08 12 0067D BNEG 4 : | : 
44 AD 02 01 01 FO 0067F INSV #1, #1, #2, 68(IRAB) > 2964 | ; 
06 11 00685 BRB 5§ : : 
4C Ad 10 AE 55 A3 00687 84$ SUBW3 BKT_ADDR, RHS, 76(IRAB) + 2966 ; 
56 52 DO 0068D 85$ OVL LHS; RE R + 2968 
50 00B4 CA 3C 00690 MOVZ2WL 180(IFABY, RO + 2969 
60 8940 9F 00695 PUSHAB @96(IRAB) CROJ ; 
60 B940 3F 00699 PUSHAW 996 (IRAB) [RO] . 
7E 20 A? 9A 00690 MOVZBL 32(IDX_DFN), -(SP) : | 
00006 30 006A1 BSBW  RMSMOVE : 
SE OC CO 006A4 ADDL2 #12, SP : | 
72 11 006A7 86$: BRB 1 : 2970. 
50 08 AE 10 AE C3 006A9 87$ SUBL3. RHS, POS_INSERT, RO : 2977 
50 18 AE CO OO06AF ADDi2 Vv. ; | 
1¢ AE 50 D1 00683 CMPL RO, BKTSIZE ; 
6 16 00687 BGEGU 89$ : | 
4A Ad 52 5 A3 006B9 SUBW3  BKT_ADDR, LHS, 74(IRAB) : 2998 | 
4c AS 48 Ad BO 0068E MOVW 72(TRAB). 76({RAB) : 2999 
OE 4A Ad B1 006C CMPW 86 74 TRAB), #14 : 3001 
05 12 006C7 BNEQ 88$ ; 
44 Ad 40 8F 88 006C9 BISB2 #64, 68(IRAB) : 3003 
44 Ad 08 88 O06CE 88$: BISB2 #8, 68(IRAB) : 3005 
04 AE 10 AE D1 006d2 CMPL = RHS, EOB : 3007 
52 1F 00607 BLSSU ; 
44 AQ 20 88 00609 BISB2 #32, 68(1RAB) > 3014 
5C 11 006DD BRB : 3016 | 
50 48 AD 3C O060f 89$:  MOVZWL 72(IRAB), RO : 3033 | 
4¢ Ag 50 BO 006E3 MOVW RO, 76(IRAB) : | 
4A AD 50 80 OOGE7 MOVW RO, 74(IRAB) ; 
44 Ad 95 006EB TSTB  68(IRAB) : 3035) 
1E 18 OO6EE BGEQ 90$ : 
44 OAD 10 88 006FO BISB2 #16, 68(IRAB) : 3038 
56 52 pO 006F4 OVE LHS. REC ADDR ; 3039 | 
50 00B4 CA 3C 006F7 MOVZ2WL 180(IFABY, RO : 3040. 
60 8940 9F O0erC USHAB a96(1RAB)ERO} ; 
60 B94 Hi 9700 PUSHAW @96(IRAB) CROJ ; 
7E 20 A? 9a 00704 MOVZBL 32(IDX_DFN), -(SP) ; 
00906 30 0708 SBW =e RMSMOVE ; 
SE c CO 007 B ADDL2 #12, SP ; 
04 AE 08 AE 01 OO70E 90S: CMPL  POS_INSERT, E0B > 3043 | 


dD 5 
RM3SPLUDR 16-Sep-1984 02:03:2 AX-11 Bliss-32 V4.0-742 Pp 7 
v0%=000 RMSSPLIT_UDR_3 12780871382 96:03:28 RMS.SRCIRM3SPLUDR.B32;1 _ (6) 
08 12 00713 BNEQ 92$ ; | 
44 Ad 02 01 o1 16 0715 INSV #1, #1, #2, 68(IRAB) : 3045 
— 1100718 91$: RB 96§ ; 
10 AE 08 AE D1 0071D 92$: CMPL POS_INSERT, RHS : 3048 
17 1E 07 2 BGEQU 96$7 : 
06 AE 10 AE D1 00724 CMPL RHS, EOB 3 3052. 
06 te 0729 BGEQ 948 : 
44 «OAD 06 88 0072B 93$ BISB 68(IRAB) : 3054 
4 11 0072F BRB if : 
44 Ad 20 88 0731 94$: BISB2 #32, 68(1 : 3056 
4E Ad 10 AE 5 A3 00735 95$: SUBW3 = BKT ADDR. Ras. 78(IRAB) : 3058) 
OE 4A AY 81 0738 96$: CMPW OE CIRAB #14 : 3070 
OA 12 0073F BNEQ : | 
05 44 «AD 03 E 0741 BBS #3 68( 1RAB) 97$ : 3072 
44 AD 40 8F 88 00746 BISB2 #64, RABS : 3074) 
5E 34 CO 00748 97$ ADDL2 #52, Se : 3078 
OC BA ie} POPR #°M<R2,R3> s 
05 0075 RSB : 
; Routine Size: 1873 bytes, Routine Base: RMS$RMS3 + 05C0 
: 3020 3079 1 | 
: 3021 3080 1 END 
: 3022 3081 1 
: 3023 3082 0 ELUDOM 
| 
| 
; PSECT SUMMARY 
; Name Bytes Attributes 
: RMSRMS3 3345 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
: Library Statistics | 
: Sh ae ee eee Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 
> _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 63 2 154 00:00.4 
; COMMAND QUALIFIERS 


: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RM3SPLUDR/OBJ=OBJ$:RM3SPLUDR MSRC$:RM3SPLUDR/UPDATE=(ENHS: RMSSPLUDR) | 
| 


1 
1986 19:01:40 ERms-SRCIRMSSPLUDR-B32; Paseo) 


RM3SPLUDR 1 
v04=000 RMSSPLIT_UDR_3 1 


: Size: 3345 code + 0 cata bytes 

; Run Time: 2 ‘ 

; Elapsed Time: 743. 
3; Lines/CPU Min: i | 
3 Lexemes/CPU-Min: 157 | 
; penaty Used: 634 pages 

; Compilation Complete 
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